7


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

























 
 
X

Чтобы скачать данный файл, порекомендуйте его своим друзьям в любой соц. сети.

После этого кнопка ЗАГРУЗКИ станет активной!

Кнопки рекомендации:

загрузить материал