Оператор цикла FOR в языке Паскаль

В разработке представлены 12 вариантов контрольной работы по информатике для проверки знаний учащихся 10 класса по теме "Оператор цикла FOR в языке Паскаль". Каждый вариант содержит 5 заданий разного уровня сложности, что позволяет провести дифференцированную оценку усвоения изученного материала.

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

Вариант 1

1. В каких случаях используют оператор цикла с параметром?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=0;

for i:=-10 to -9 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=2;

for k:=5 to 12 do

s:=s+k;

write(s);

end.

1. Написать программу, которая печатает в столбик все целые числа от 20 до 35.

2. Найти все двузначные числа, в записи которых есть цифра 5.

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

Вариант 2

1. Что такое тело цикла?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=1;

for i:=10 downto 1 do

k:=k+1;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=0;

for k:=1 to 11 do

s:=s+k;

write(s);

end.

1. Напечатать таблицу соответствия между весом в килограммах и весом в граммах для значений 1, 2, …10 килограммов.

2. Найти все трехзначные числа, которые оканчиваются цифрой 3.

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

Вариант 3

1. Какой тип может иметь параметр цикла?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=0;

for i:=10 downto 10 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=5;

for k:=1 to 120 do

s:=s+5;

write(s);

end.

1. Напечатать столбиком квадраты всех двузначных целых чисел.

2. Среди двузначных чисел найти те, сумма цифр которых равна 10.

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

Вариант 4

1. Может ли тело оператора цикла не выполниться ни разу?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=0;

for i:=10 downto 11 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=3;

for k:=50 downto 45 do

s:=s+10;

write(s);

end.

1. Напечатать таблицу перевода 1, 2, …, 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).

2. Найти сумму положительных нечетных трехзначных чисел.

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

Вариант 5

1. Какие значения может иметь шаг для числового параметра цикла FOR?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=3;

for i:=3 to downto k do

k:=i-k;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=20;

for k:=15 to 22 do

s:=s+3;

write(s);

end.

1. Напечатать столбиком третьи степени всех однозначных целых чисел.

2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3.

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

Вариант 6

1. От чего зависит количество повторений тела цикла?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=5;

for i:=10 to 10 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=1;

for k:=15 downto 12 do

s:=s*k;

write(s);

end.

1. Напечатать таблицу соответствия расстояний в метрах расстояниям в сантиметрах для значений 10, 11, …, 22 метра.

2. Найти все положительные трехзначные числа, у которых первая и последняя цифра одинаковы.

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

Вариант 7

1. В каких случаях используют оператор цикла с параметром?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=0;

for i:=10 downto 10 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=21;

for k:=5 to 12 do

s:=s+3;

write(s);

end.

1. Написать программу, которая печатает в столбик квадраты всех целых чисел от 10 до 25.

2. Найти все двузначные числа, у которых цифра десятков равна 5.

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

Вариант 8

1. Что такое тело цикла?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=0;

for i:=10 downto 11 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=10;

for k:=10 to 11 do

s:=s+k;

write(s);

end.

1. Напечатать таблицу соответствия между временем в часах и временем в минутах для значений 1, 2, …10 часов.

2. Найти все трехзначные числа, кратные 3.

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

Вариант 9

1. Какой тип может иметь параметр цикла?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=3;

for i:=3 to downto k do

k:=i-k;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=50;

for k:=8 to 12 do

s:=s+5;

write(s);

end.

1. Напечатать столбиком кубы всех двузначных целых чисел.

2. Среди двузначных чисел найти те, сумма цифр которых четная.

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

Вариант 10

1. Может ли тело оператора цикла не выполниться ни разу?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=1;

for i:=10 downto 1 do

k:=k+1;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=1;

for k:=50 downto 45 do

s:=s*10;

write(s);

end.

1. Напечатать таблицу перевода 1, 2, …, 20 дециметров в сантиметры.

2. Напечатать все положительные нечетные трехзначные числа.

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

Вариант 11

1. Какие значения может иметь шаг для числового параметра цикла FOR?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=0;

for i:=-10 to -9 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=2;

for k:=1 to 6 do

s:=s+k;

write(s);

end.

1. Напечатать столбиком всех трехзначные целые числа, кратные 5.

2. Найти сумму целых положительных четных чисел, больших 100, меньших 150.

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

Вариант 12

1. От чего зависит количество повторений тела цикла?

2. Сколько раз будет выполнен цикл и что будет выведено на печать?

var k, i: integer;

...

k:=5;

for i:=10 to 10 do

k:=i;

write(k);

1. Составьте трассировочную таблицу и определите, что будет напечатано в результате выполнения следующего фрагмента программы:

var k, s: integer;

begin

s:=5;

for k:=15 downto 12 do

s:=s*2;

write(s);

end.

1. Напечатать таблицу соответствия расстояний в метрах расстояниям в сантиметрах для значений 1, 2, …, 12 метров.

2. Найти все положительные двузначные числа, состоящие из одинаковых цифр.