Контрольная работа по информатике на тему «Циклы на языке Паскаль»
1. Заполнить пропуски в программе, которая выводит четные числа в диапазоне от 20 до 30
Program Primer;
Var x: -------;
Begin
X:=---------;
While x< ------- do ________
Writeln (x);
X : = X + _________;
_________;
End.
2. Заполнить пропуски в программе, которая выводит четные числа в диапазоне от 10 до 20
Program Primer;
Var x: integer;
Begin
For x: = _______ to _______ do ________
If x mod _____ = _______ then write (_____,”);
End;
End.
3. Высчитай, сколько раз выполняется тело цикла и найди ответ
a) For x: = 10 downto 5 do
Write (‘*’)
Б) ) For x: = 1 downto 10 do
Write (‘*’)
В) ) For x: = 5 to 5 do
Write (‘*’)
Г) For x: = 6 to 3 do
Write (‘*’)
Д) ) For x: = 3 downto 3 do
Write (‘*’)
Е) For x: = 1 to 7 do
Write (‘*’)
4. Расставь на свои места команды и операторы так, чтобы получилась программа, которая выводит на экран числа в диапазоне от 20 до 50
1) End.
2) Write (I,‘’);
3) For x: = 20 to 50 do
4) Begin
5) Program Primer;
6) Var I : integer;
5. Найди ошибки в программе
Program Primer;
Var x,y : integer;
Begin
X=0;
While x >= 3.1 do begin
Y:= sin(x);
Writeln(x,y);
X:=x+0.1;
End;
End.
6. Составьте таблицу значений функции y = 4x2 – 5x – 10 на отрезке [-9; 9] с шагом b = 3. ( всеми тремя способами, но для цикла для взять интервал от -2 до 2 с шагом 1)
7. 6. Какая программа выдаст ошибку выполнения? (предполагается, что числа s, f, a лежат в интервале от -1000 до 1000, а≠0)
(b)
Var s, f, a: integer;
BeginS:=f+a;
End.
(c)
Var s, f, a: integer;
BeginS:=f-a;
End.
(d)
Var s, f, a: integer;
BeginS:=f*a;
End.
7. Установи соответствие
:=1; while x<10 do begin Writeln (x)
Тело цикла будет выполняться бесконечно
Х:=1; while 0
Появится сообщение об ошибке
Х:=1; while x<0 do begin
Writeln (x);
X:=x-1;
End
Тело цикла будет выполнено 1 раз
Х:=1; while x<5 do begin
Writeln (x);
X:=x+1;
End
Тело цикла не выполнится ни разу
Х:=1; while x=1 do begin
Writeln (x);
X:=x+1;
End
