11_Практическая работа "Применение циклов к решению задач" 9 класс_уч. Босовой Л.А.

Практическая работа «Цикл for и While» 1 вариант

ФИО ________________________________________________ КЛАСС ____________

1. Написать программу вывода на экран 10 первых элементов арифметической прогрессии:

100, 95, 90, 85, …

1. Написать программу вывода на экран 10 первых элементов геометрической прогрессии:

1, 3, 9, 27, …

1. Определить, что выводит на экран данный алгоритм. Заменить в программе цикл «for» на «while»:

а). var i: integer; // Промежуточная величина

s: integer; // Результат

begin

s := 1;

for i := 0 to 10 do

begin

writeln(i:6,s:6);

s:=s*2; end;

end.

б). var n, i, s: integer;

begin writeln ('Введите натуральное n');

readln (n);

s := 0;

for i := 1 to n do

s := s + i;

writeln ('s=', s)

end.

Практическая работа «Цикл for» 2 вариант

ФИО ________________________________________________ КЛАСС ____________

1. Написать программу вывода на экран 10 первых элементов арифметической прогрессии:

7, 12, 17, 22, 27, 32, …

1. Написать программу вывода на экран 10 первых элементов геометрической прогрессии:

800, 400,200, 100, 50, …

1. Определить, что выводит на экран данный алгоритм. Заменить в программе цикл «for» на «while»:

а). var i: integer; // Промежуточная величина

s: integer; // Результат

begin

s := 1;

for i := 0 to 10 do

begin

writeln(i:6,s:6);

s:=s+4; end;

end.

б). var n, i, s: integer;

begin writeln ('Введите натуральное n');

readln (n);

s := 1;

for i := 1 to n do

s := s * i;

writeln ('s=', s)

end.