Вариант 5. Составить программу и трассировку программы вычисления суммы элементов последовательности. (Трассировка - проверка алгоритма с пошагового вычисления. В отчете рассчитать 3 итерации цикла). Использовать цикл do…while. 1, 4, 8, 16, 32, 256
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var age:=ReadInteger('Введите возраст:'); var gender:=ReadInteger('Введите пол (1-М, 2-Ж):'); if gender=1 then case age of 0..13:Writeln('Мальчик'); 14..20:Writeln('Юноша'); 21..70:Writeln('Мужчина'); else Writeln('Старец') end else case age of 0..13:Writeln('Девочка'); 14..20:Writeln('Девушка'); 21..70:Writeln('Женщина'); else Writeln('Старушка') end end.
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
// Внимание! Если программа не работает, обновите версию!
begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
case age of
0..13:Writeln('Мальчик');
14..20:Writeln('Юноша');
21..70:Writeln('Мужчина');
else Writeln('Старец')
end
else
case age of
0..13:Writeln('Девочка');
14..20:Writeln('Девушка');
21..70:Writeln('Женщина');
else Writeln('Старушка')
end
end.
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15