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

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

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

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

Класс _________

Вариант №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 задание. Составить программу и набрать на компьютере.

Определите расстояние на плоскости между двумя точками М₁ (х₁, у₁) и М₂ (х₂, у₂).

D =

Исходные данные:   х₁ = -1,5         у₁ = 2,8               х₂ = 3,7         у₂ = -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 задание. Составить программу и набрать на компьютере.

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

L = 2 π r

S = π r²

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

Результат: _________