Сведения о наличии билетов в аэрофлоте на языке Паскаль - Курсовая работа

Содержание

1. Задание курсовой работы

2. Постановка задач

3. Вступление

4. Основная часть

5. Заключение

6. Список литературы

7. Приложение (блок- схема, текст программы)

Введение (выдержка)

А. Создать файл, содержащий сведения о наличии билетов и рейсах Аэрофлота. Структура записи: номер рейса, пункт назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей произвольное.

Б. Написать программу, выдающую информацию следующего вида:

 Время отправления самолетов в город Х;

 Наличие свободных мест на рейс в город Х с временем отправления Y.

Значения X, Y вводятся по запросу с терминала.

Основная часть (выдержка)

Данная программа работоспособна на машинах типа IBM PC и выше, где запускается Паскаль.

Программа предназначена для выведения данных и записи его данных во внешний файл aerof.dat.

Составные программы

Turbo Pascal – запускаемая программа

Aerof.dat- необходимый файл

Graph и Crt – исполняемые модули

Ход программы

После запуска программы на экране появляется заставка, содержащая название программы, имя автора, место и год создания программы, имя руководителя, после просмотра заставки нажмите клавишу «Enter». Появляется меню:

Главное меню

1-Ввод данных о самолетах

2- Просмотр расписания

3-Наличие свободных мест и время отправления

4-Выход

Вы выбираете-

На данном этапе работа может осуществляться по четырем направлениям:

1. Если пользователь нажмет клавишу «1», то машина запрашивает ввод данных;

2. Если пользователь нажмет клавишу «2», то машина выдает введенную информацию;

3. Если пользователь нажмет клавишу «3», то машина спрашивает вас во сколько должен отправляться рейс самолета и пункт назначения;

4. Если пользователь нажмет клавишу «4», то машина выходит из этого поля работы и возвращается к телу программы.

Заключение (выдержка)

Цель написания этой программы состоит не для коммерческой наживы, а для того показать знания конструкций языка Pascal 7.0 и умение составлять программы на нем.

{******************** Меню ***********************************}

Procedure Menu(var sel:byte);

VAR gd,gm:integer;

begin

gd:=detect;

initgraph(gd,gm,'');

setcolor(4);

rectangle(15,10,630,470);

setcolor(5);

rectangle(25,20,620,460);

settextstyle(1,0,1);

setcolor(7);

outtextXY(50,70,'Информация об отправлениях самолетов');

settextstyle(1,0,1);

setcolor(2);

outtextXY(60,95,'Главное меню');

settextstyle(1,0,1);

setcolor(2);

outtextXY(70,130,'1 - Ввод данных о самолетах');

settextstyle(1,0,1);

setcolor(2);

outtextXY(80,155,'2 - Просмотр расписания');

settextstyle(1,0,1);

setcolor(2);

outtextXY(90,175,'3 - Наличие свободных мест и время отправления');

settextstyle(1,0,1);

setcolor(2);

outtextXY(100,200,'4 - Выход');

settextstyle(1,0,1);

setcolor(2);

outtextXY(110,220,'Вы выбираете -');

readln(sel);

closegraph;

end;

Литература

1. Введение в программирование, Минск Харвест, В.А. Гольденберг, 1997

2. Турбо Паскаль7.0., Издательская группа BHV, Т.Ф. Зимина, И.В. Стеценко, 1998

3. Практикум по основам программирования (язык Паскаль), Москва «Высшая школа», Н.Д. Васюкова, В.В. Тюляева, 1991

4. Основы программирования и алгоритмические языки, Москва энергоатомиздат, В.Г. Баула, Н.Д. Васюкова, В.В. Тюляева, П.В. Уманец, 1991.

Примечания

К работе прилагается все исходники. Есть приложения.