Контрольная работа по информатике "Циклы в Паскаль" 8 класс, состоит из теоретической и практической части. В теоретической части необходимо заполнить пропуски и заполнить трассировочные таблицы. В практической части необходимо решить на компьютере любые две задачи. Работа рассчитана на знание всех трех видов цикла.
Фамилия, имя
Тема: ЦИКЛЫ
1. Поставьте служебные слова в операторы циклов
<условие>
С предусловием:
<группа операторов>
С постусловием:
< группа операторов >
<условие >
С параметром:
<парр>:=<нач. зне>
<кон. зне>
<группа операторов>
2. Выберите правильное окончание предложения
Выход из цикла с постусловием выполняется, если условие цикла
истинно
ложно
Выход из цикла с предусловием выполняется, если условие цикла
истинно
ложно
3. Какое значение примет переменная х в результате выполнения следующих
фрагментов программ?
x := 1;
x := 1;
x := 1;
repeat
x := x + 3;
x := x + 1
until x> 10;
Ответ
x := 1;
While x< 100 do
begin
x := x * 2;
end;
While x< 10 do
x := x + 3;
x := x + 1
Ответ
x := 1;
repeat
x := x + 1;
until x> 10;
While x< 10 do
begin
x := x + 3;
x := x + 1
end;
Ответ
x := 1;
While x<> 1 do
begin
x := x + 3;
x := x + 1
end;
Ответ
Ответ
4. Остановится ли когданибудь цикл, представленный в следующих фрагментах
программы?
Ответ
x := 1;
While x> 1 do
x := x + 1
Ответ
x := 1;
y := 1;
While x< 10 do
x := 10;
While x> 1 do
x := x + 1;
Ответ
x := 1;
y := 1;
repeat
x := 1;
y := 1;
While x< 10 do
Y := y + 1;
x := x + 1;
Ответ
x := 10;
y := 10;
repeatОтвет
№ интерации
q
p
Ответ
y := y + 1;
x := x + 1
until x = 10;
y := y + 1;
x := x + 1
until x = 10;
begin
x := x + 1;
y := y + 1
end;
Ответ
6. Покажите, что будет напечатано в результате выполнения следующих программ
Program pro1;
Var
p,
q
: integer;
Begin
Writeln(‘q’, ‘p’);
for q := 0 to 5 do
begin
p := 3 * q + 1;
writeln (d, ‘ ’, p);
end;
End.
№ интерации
x
y
№ интерации
x
y
Program pro2;
Var
x,
y
: integer;
Begin
x := 4;
y := 1;
Writeln(‘x’, ‘y’);
while x >= 0 do
begin
x := x y;
y := y + 1;
end;
writeln (x, ‘ ’, y);
End.
for x := 7 to 9 do
begin
y := x * 3;
writeln (x, ‘ ’, y);
end;
x:= 14;
writeln (x, ‘ ’, y);
Задачи:1. Определите и выведите на экран количество чисел между 20 и 1000, которые
делятся без остатка одновременно на 4, 5
2. Определите и выведите на экран количество чисел между 100 и 1000, которые
делятся без остатка одновременно на 13, 15
3. Найти сумму положительных кратных 7 чисел, меньших 100
4. Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.
5.
Составить программу вычисления суммы квадратов чисел от 1 до n.
Контрольная работа по циклам.docx
