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

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



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

по предмету

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


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

студент  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.