Вопрос по информатике:
В линейном массиве целых чисел на i-е мест вставить элемент равный корню квадратному из суммы квадратов двух указанных с клавиатуры элементов. Записать в паскале исправьте ошибки пожалуйста.
program zadacha;
var a:array [1..100] of integer;
i,n,b,c:integer;
s: real;
begin
write('кол. элементов');
readln(n);
write('элементы массива');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c)+sqrt(b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;- вот не правильно
for i:=1 to n do
write(a[i]:6)
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.09.2016 08:24
- Информатика
- remove_red_eye 9844
- thumb_up 50
Ответы и объяснения 1
Попробуй так, если в массиве толжен присутствовать корень, то он должен быть типа real)
program zadacha;
var a:array [1..100] of real;
i,n,b,c:integer;
s:real;
begin
write('êîë. ýëåìåíòîâ');
readln(n);
write('ýëåìåíòû ìàññèâà');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c*c+b*b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;
for i:=1 to n do
writeln(a[i]:2:3);
readln;
end.
- 14.09.2016 03:06
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.