ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение высшего профессионального образования «ЧЕЛЯБИНСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ»
Контрольная работа
по предмету
«Технологии программирования»
Исполнитель:
студент 1 курса ОЗО факультета РИПОДО
«Информационные технологии в образовании»
Челябинск, 2011
Тема 1: Простейшие программы
Задача 3. Уровень 1
Условие:
На борту самолета, летящего по маршруту Москва-Лондон, находятся x пассажиров. Три четверти пассажиров имеют билеты второго класса, все остальные – первого. Билет первого класса стоит b рублей. Это в два раза больше стоимости билета второго класса. Сколько денег получила авиакомпания от продажи билетов на этот рейс?
Листинг
программы
:
program Project 1 ;
{$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 Project 2 ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a, b, c, max, min: integer;
begin
writeln ('BBeguTe 1
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 Project 3 ;
{$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.