Скачать .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.