Оператор цикла FOR

Глинкина Ирина Викторовна, учитель информатики МБОУ
«Гимназия№4» г.о.Дзержинский Московская область
Контрольная работа по теме «Оператор цикла FOR».
Вариант 1
1. В каких случаях используют оператор цикла с параметром?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=0;
for i:=-10 to -9 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано
в результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=2;
for k:=5 to 12 do
s:=s+k;
write(s);
end.
4. Написать программу, которая печатает в столбик все целые числа от 20
до 35.
5. Написать программу, которая находит все двузначные числа, в записи
которых есть цифра 5.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 2
1. Что такое тело цикла?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=1;
for i:=10 downto 1 do
k:=k+1;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
for k:=1 to 11 do
s:=s+k;
write(s);
end.
4. Написать программу, которая печатает таблицу соответствия между
весом в килограммах и весом в граммах для значений 1, 2, …10
килограммов.
5. Написать программу, которая, находит все трехзначные числа,
оканчивающиеся цифрой 3.
Оператор цикла FOR
Вариант 3
1. Какой тип может иметь параметр цикла?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=0;
for i:=10 downto 10 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=5;
for k:=1 to 120 do
s:=s+5;
write(s);
end.
4. Написать программу, которая печатает столбиком квадраты всех
двузначных целых чисел.
5. Написать программу, которая среди двузначных чисел находит те, сумма
цифр которых равна 10.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 4
1. Может ли тело оператора цикла не выполниться ни разу?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=0;
for i:=10 downto 11 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=3;
for k:=50 downto 45 do
s:=s+10;
write(s);
end.
4. Напечатать таблицу перевода 1, 2, …, 20 долларов США в рубли по
текущему курсу (значение курса вводится с клавиатуры).
5. Найти сумму положительных нечетных трехзначных чисел.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 5
1. Какие значения может иметь шаг для числового параметра цикла FOR?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=3;
for i:=3 to downto k do
k:=i-k;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=20;
for k:=15 to 22 do
s:=s+3;
write(s);
end.
4. Напечатать столбиком третьи степени всех однозначных целых чисел.
5. Найти сумму целых положительных чисел, больших 20, меньших 100,
кратных 3.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 6
1. От чего зависит количество повторений тела цикла?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=5;
for i:=10 to 10 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=1;
for k:=15 downto 12 do
s:=s*k;
write(s);
end.
4. Напечатать таблицу соответствия расстояний в метрах расстояниям в
сантиметрах для значений 10, 11, …, 22 метра.
5. Найти все положительные трехзначные числа, у которых первая и
последняя цифра одинаковы.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 7
1. В каких случаях используют оператор цикла с параметром?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=0;
for i:=10 downto 10 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=21;
for k:=5 to 12 do
s:=s+3;
write(s);
end.
4. Написать программу, которая печатает в столбик квадраты всех целых
чисел от 10 до 25.
5. Найти все двузначные числа, у которых цифра десятков равна 5.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 8
1. Что такое тело цикла?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=0;
for i:=10 downto 11 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=10;
for k:=10 to 11 do
s:=s+k;
write(s);
end.
4. Напечатать таблицу соответствия между временем в часах и временем в
минутах для значений 1, 2, …10 часов.
5. Найти все трехзначные числа, кратные 3.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 9
1. Какой тип может иметь параметр цикла?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=3;
for i:=3 to downto k do
k:=i-k;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=50;
for k:=8 to 12 do
s:=s+5;
write(s);
end.
4. Напечатать столбиком кубы всех двузначных целых чисел.
5. Среди двузначных чисел найти те, сумма цифр которых четная.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 10
1. Может ли тело оператора цикла не выполниться ни разу?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=1;
for i:=10 downto 1 do
k:=k+1;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=1;
for k:=50 downto 45 do
s:=s*10;
write(s);
end.
4. Напечатать таблицу перевода 1, 2, …, 20 дециметров в сантиметры.
5. Напечатать все положительные нечетные трехзначные числа.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 11
1. Какие значения может иметь шаг для числового параметра цикла FOR?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=0;
for i:=-10 to -9 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=2;
for k:=1 to 6 do
s:=s+k;
write(s);
end.
4. Напечатать столбиком всех трехзначные целые числа, кратные 5.
5. Найти сумму целых положительных четных чисел, больших 100,
меньших 150.
Контрольная работа по теме «Оператор цикла FOR».
Вариант 12
1. От чего зависит количество повторений тела цикла?
2. Сколько раз будет выполнен цикл и что будет выведено на печать?
var k, i: integer;
...
k:=5;
for i:=10 to 10 do
k:=i;
write(k);
3. Составьте трассировочную таблицу и определите, что будет напечатано в
результате выполнения следующего фрагмента программы:
var k, s: integer;
begin
s:=5;
for k:=15 downto 12 do
s:=s*2;
write(s);
end.
4. Напечатать таблицу соответствия расстояний в метрах расстояниям в
сантиметрах для значений 1, 2, …, 12 метров.
5. Найти все положительные двузначные числа, состоящие из одинаковых
цифр.