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

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

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

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

   по  предмету

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

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

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