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

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

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

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

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

Класс _________

Вариант№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

Результат: