Контрольная работа по программированию

Контрольная работа по программированию. Введение в программирование

1. Что выполняет программа? Объясни выбор переменных и их типов. Дополни программу так, чтобы организовать диалог с пользователем.

var a,b: byte; c: real;

begin

readln (a, b);

c := sqrt(a*a+b*b);

writeln(c);

end.

1. Найди ошибки в программе. Напиши текст программы без ошибок.

var x, y, v integer;

Begin;

Write (Введите x, y );

Readln (x, y);

if x y, then

v = x + y;

else v = x - y;

writeln (‘v’);

end.

1. Напиши программу, которая определяет четность числа с помощью оператора case of.

Ответы

1.Программа находит гипотенузу прямоугольного треугольника.
стороны треугольника – целые числа, гипотенуза – дробное число, т.к. присутствует функция извлечения квадратного корня. Диалог с пользователем организован благодаря выводу сообщений через оператор вывода write (см ниже)

var a,b: byte; c: real;

begin

Write (‘введите стороны треугольника а и b’ );

readln (a, b);

c := sqrt(a*a+b*b);

writeln(‘гипотенуза= ’ , c);

end.

2.Найди ошибки в программе. Напиши текст программы без ошибок.

var x, y, v: integer;

Begin

Write (‘Введите x, y’ );

readln (x, y);

if x y then

v := x + y

else v := x - y;

writeln (v);

end.

3.Напиши программу, которая определяет четность числа с помощью оператора case of.

var a: integer;

Begin

Write (‘Введите число’ );

readln (а);

case a mod 2 of

0: writeln (‘четное’);

1: writeln (‘нечетное’);

End; end.

Оценивание результатов работы

1 задание – до 3 б (Если отвечено на все 3 вопроса)

2 задание– до 4 б (Если найдено 8 ошибок)

3 задание – до 3 б (Если программа написана без ошибок и работает, если ученик выполнял задание на компьютере)

Если задание №3 выполняется на ПК, то ученик должен сдать ответы на предыдущие задания

Всего за работу 10 б

8-10 б – «5»

5-7 б – «4»

3-4 б – «3»