- 1
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение высшего профессионального образования «ЧЕЛЯБИНСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ» Контрольная работа
по предмету
«Технологии программирования»
Исполнитель:
студент 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
- 1
Похожие работы
Интересная статья: Основы написания курсовой работы