Контрольная работа по теме Линейные программы

Контрольная работа по информатике
по теме: «Линейные программы»
Дата проведения: ______________
Фамилия, имя ученика: __________________________________________
Класс _________
Вариант№1
1 задание. Найди и исправь ошибки в программе
Задача: найти длину окружности и площадь круга.
Program Окружность;
var r;L;S:intenger;
writeln(введи радиус окружности’);
readln (r);
D=2*3,14*r;
S=3,14*sqrt(r);
writeln (Длина окружности: ’ D)
writeln (Площадь окружности: ’, S)
end.

2 задание. Записать по правилам программирования на языке Паскаль
13 EMBED Equation.3 1415


3 задание. Составить программу и набрать на компьютере.
Определите расстояние на плоскости между двумя точками М1(х1, у1) и М2(х2, у2).
D=
Исходные данные: х1=-1,5 у1=2,8 х2=3,7 у2=-0,9
Результат:
Контрольная работа по информатике
по теме: «Линейные программы»
Дата проведения: ______________
Фамилия, имя ученика: __________________________________________
Класс _________
Вариант№2
1 задание. Найди и исправь ошибки в программе
Задача: вычисление суммы и разности двух чисел.
Programm zadanie 1
var a,b,z - real;
begun
writeln ( введи 1 число’);
readln (a);
writeln ( введи 2 число);
readln (a’);
s:=a+b;
writeln (сумма 2-ух чисел=, s);
z:=a-b
writeln (разность 2-ух чисел=’ );
end

2 задание. Записать по правилам программирования на языке Паскаль
13 EMBED Equation.3 1415


3 задание. Составить программу и набрать на компьютере.
Найти гипотенузу и площадь прямоугольного треугольника по двум данным катетам: а, b .(Гипотенуза по теореме Пифагора, площадь: половина произведения катетов)
Исходные данные: a=37,8 b=14,9
Результат:

Контрольная работа по информатике
по теме: «Линейные программы»
Дата проведения: ______________
Фамилия, имя ученика: __________________________________________
Класс _________
Вариант№3
1 задание. Найди и исправь ошибки в программе
Задача: выполнить вычисление: 13 QUOTE 1415

Programm Vychislenie_funkcii,
var x, y, :real,
began
writeln введи х’;
riadln(y);
writeln (введи y’);
riadln(y);
u:=1+2 sin(x+y): 5-sqr(x+y) ;
writeln(u=’,u);

2 задание. Записать по правилам программирования на языке Паскаль
13 EMBED Equation.3 1415


3 задание. Составить программу и набрать на компьютере.
Найти длину окружности и площадь круга. 13 EMBED Equation.3 1415
Исходные данные: г=18,72
Результат: