Название: по Технологии программирования

Вид работы: контрольная работа

Рубрика: Информатика

Размер файла: 68.96 Kb

Скачать файл: referat.me-131077.docx

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

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

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

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

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

по предмету

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

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

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

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.