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

Контрольная работа по информатике

по теме: «Линейные программы»

Дата проведения: ______________

Фамилия, имя ученика: __________________________________________

Класс _________

Вариант№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 задание. Записать по правилам программирования на языке Паскаль

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 задание. Записать по правилам программирования на языке Паскаль

3 задание. Составить программу и набрать на компьютере.

Найти гипотенузу и площадь прямоугольного треугольника по двум данным катетам: а, b .(Гипотенуза по теореме Пифагора, площадь: половина произведения катетов)

Исходные данные: a=37,8 b=14,9

Результат:

Контрольная работа по информатике

по теме: «Линейные программы»

Дата проведения: ______________

Фамилия, имя ученика: __________________________________________

Класс _________

Вариант№3

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

Задача: выполнить вычисление:

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 задание. Записать по правилам программирования на языке Паскаль

3 задание. Составить программу и набрать на компьютере.

Найти длину окружности и площадь круга.

Исходные данные: г=18,72

Результат: