- Учителю
- Контрольная работа по теме Циклы на языке Паскаль для 11 класса
Контрольная работа по теме Циклы на языке Паскаль для 11 класса
Контрольная работа по информатике на тему «Циклы на языке Паскаль»
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