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