по Технологии программирования

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение высшего профессионального образования «ЧЕЛЯБИНСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ»

	

	

	

	

	

	Контрольная работа

	по предмету

	«Технологии программирования»

	

	

		

		

		

		

		

		Исполнитель:

		студент  1 курса ОЗО факультета РИПОДО

		«Информационные технологии в образовании»

	

	Челябинск, 2011 

Тема 1: Простейшие программы

Задача 3. Уровень 1

Условие:

На борту самолета, летящего по маршруту Москва-Лондон, находятся x пассажиров. Три четверти пассажиров имеют билеты второго класса, все остальные – первого. Билет первого класса стоит b рублей. Это в два раза больше стоимости билета второго класса. Сколько денег получила авиакомпания от продажи билетов на этот рейс?

Листинг программы:



program Project1;



{$APPTYPE CONSOLE}



uses

  SysUtils;

var x,b,c,a,d: integer;

begin

writeln ('VveguTe kolucheCTBo naccazhipoB');

readln (x);

writeln ('Ckolbko buletov 1 klacca');

readln (a);

writeln ('Ckolbko buletov 2 klacca');

readln (c);

writeln ('Vvedite cTouMocTb buleta 1 klacca');

readln (b);

writeln ('Vvedite cTouMocTb buleta 2 klacca');

readln (d);

x:=(b*c)+(d*a);

writeln (x);

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.











Тема 2: Условный оператор

Задача 14. Уровень 1

Условие:

Написать программу нахождения суммы большего и меньшего из 3 чисел.

Листинг программы:



program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



	var a, b, c, max, min: integer;	

begin

writeln ('BBeguTe 1 chislo');

readln (a);

writeln ('BBeguTe 2 chislo');

readln (b);

writeln ('BBegute 3 chislo');

readln (c);

max:=a;

min:=a;

if (b>a) and (b>c) then max:=b

else max:=c;

if (b<a) and (b<c) then min:=b

else min:=c;

writeln (max+min);

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.















Тема 3: Циклы

Задача 2. Пункт b). Уровень 1

Условие:

Составить программу вычислений значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции:



Листинг программы:



program Project3;



{$APPTYPE CONSOLE}



uses

  SysUtils;



const a=pi/4; b=pi/2; h=pi/60;

var x,y,f :real;

begin

x:=a;

while x<=b do

begin

y:=sqr(sin(x));

writeln (x:4:2,' ',y:4:2);

x:=x+h;

end;

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.















Задача 1. Пункт c). Уровень 1

Условие:

Составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен.

Листинг программы:



program Project1;



{$APPTYPE CONSOLE}



uses

  SysUtils;



const b=1234;

var a:integer;

begin

writeln ('BBeguTe nAPolb');

while a<>b do

begin

readln (a);

if a<>b then writeln ('naPOlb BBegeH HE BePHO');

end;

writeln ('naPOlb BBegeH BePHO');

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.