Контрольная работа «Программирование на Паскале»

Вариант 1

1. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 4) and (t > 4) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (10, 6); (7, 6); (–4, 3); (2, 9); (12, 7); (–11, 4); (–8, 13); (10, 9); (6, 5).

Сколько было запусков, при которых программа напечатала «НЕТ»?

2. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 4) and (t > 2) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (3, –3); (7, 6); (–4, 1); (2, 9); (12, 7); (–11, 4); (–8, 13); (10, 9); (6, 5).

Сколько было запусков, при которых программа напечатала «НЕТ»?

3. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 6) and (t > 5) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (5, 3); (2, 4); (–1, 10); (5, 7); (5, 4); (–11, 4); (9, 13); (7, 9); (6, 8).

Сколько было запусков, при которых программа напечатала «ДА»?

4. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 6) and (t < 7) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (7, 3); (2, 7); (6, 10); (5, 3); (5, 4); (–11, 4); (–8, 9); (7, 3); (9, 1).

Сколько было запусков, при которых программа напечатала «НЕТ»?

5. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 2) and (t < 5) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (–2, 3); (2, 5); (0, 3); (5, –3); (5, 4); (11, 4); (8, –6); (7, 3); (9, 1).

Сколько было запусков, при которых программа напечатала «ДА»?

6. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 2) and (t < 5) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (–2, 3); (2, 5); (0, 3); (5, –3); (5, 4); (11, 4); (8, –6); (1, 7); (9, 1).

Сколько было запусков, при которых программа напечатала «НЕТ»?

7. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s > 3) or (t < 7) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (–1, 6); (2, 8); (0, 3); (9, –9); (4, 4); (2, 7); (8, –2); (7, 7); (4, 1).

Сколько было запусков, при которых программа напечатала «НЕТ»?

8. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s < 7) or (t > 5) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (9, 5); (11, 2); (4, 5); (7, –2); (4, 4); (7, 7); (1, –1); (3, 9); (2, 2).

Сколько было запусков, при которых программа напечатала «ДА»?

9. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s < 5) or (t > 5) then writeln('ДА') else writeln('НЕТ') end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (2, 5); (5, 2); (4, 4); (2, –2); (3, 1); (8, 3); (9, –7); (7, 7); (4, 6).

Сколько было запусков, при которых программа напечатала «НЕТ»?

10. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s < 5) and (t > 5) then writeln('ДА') else writeln('НЕТ') end.

Сколько было запусков, при которых программа напечатала «НЕТ»?

11. Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer; begin readln(s); readln(t); if (s < 7) or (t > 5) then writeln('ДА') else writeln('НЕТ') end.

Сколько было запусков, при которых программа напечатала «НЕТ»?

12. Выпишите недопустимые имена переменных:

a) Program;
b) S34;
c) И92;
d) Kol_vo54;
e) 45_A;

i) fg-л23

13. Установите соответствие (например а)b) или c)а)) между переменной и типом данных:

а) A:=3.234 а) Integer
b) Z:=14 b) Real

c) B:=10351
d) K:=-0.2

e) C:= 64000

14. Запишите инструкцию:

а) присваивающую переменной V значение 7;

б) уменьшающую значение переменной Z на 30;

в) вычисляющую значение переменной R по формуле (X²+Y²):2;

15. Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:

1) S:=a*h;	6) var a,b,h,p,s: integer;
2) a:=6;b:=3;h:=4; 3) begin	7) readln; 8) end.
4) program pr;	9) Writeln(‘p=’,p,’ s=’,s);
5) p:=2*(a+b);

16. Дан текст программы в таблице с ошибками:

Ÿ исправьте ошибки в программе;

Ÿ что выведется на экран в результате выполнения программы?

Программа с ошибками	Программа без ошибок	На экране будет напечатано:
War: a,b,c – integer, x: real; Bigin A=7, b=3,2, c:=a+b; Writln (summa=, c); C:=c/2; x:=a-c; Writeln(‘x=’, x, ‘kvadrat=’, x*x); and

Контрольная работа «Программирование на Паскале»

Вариант 2