Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Касса аэропорта

Название: Касса аэропорта
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 13:10:40 12 июля 2005 Похожие работы
Просмотров: 125 Комментариев: 22 Оценило: 4 человек Средний балл: 5 Оценка: неизвестно     Скачать

Волжский университет имени В.Н. Татищева


Кафедра «Информатика и системы управления»


Специальность: 220100 «Вычислительные машины, комплексы системы и сети»

Задание

на курсовой проект по дисциплине

«Основы технологии программирования»

Студенту________________________________________________________

Группа__________________________________________________________

Тема проекта____________________________________________________

Календарный график задания_______________________________________


Содержание задания

При продаже билетов регистрируют пассажиров.

Информацию о каждом пассажире вводится в диалоге по запросам программы.

Информация о каждом пассажире состоит из следующих полей :

-Фамилия, имя, отчество;

-Номер паспорта;

-Пункт назначения;

-Номер рейса.

Сведения о пассажирах сохраняются в файле airbase.dat ,состоящем из

отдельных записей ,где одна запись хранит всю информацию об одном пассажире.

Программа содержит следующие процедуры и функции;

-Продажа билета (регистрирует нового пассажира);

-Найти пассажира;

-Удалить пассажира;

-Выход;

Указанные процедуры и функции выбираются из меню.

В пункте ПРОДАЖА БИЛЕТА - вводится Ф.И.О , номер паспорта , рейс, т.е регистрируется новый

пассажир , информация о нем вносится в базу данных.

В пункте НАЙТИ - выводится информация о пассажире.

В пункте УДАЛИТЬ ПАССАЖИРА - по введенной Ф.И.О информация о данном пассажире удаляется из базы данных.

ВЫХОД - выход из программы.


Руководитель курсовой работы

Студент

Составитель:

Старший преподаватель ___________________________Ахмедханлы Д.М.

Заведующий кафедрой ИиСУ __________________________Краснов С.В.

Декан ФииТ _________________________________________Краснов С.В.


Описание предметной области


Ввод данных в программу осуществляется в диалоге по запросам программы. Оператор программы передвигается по пунктам меню и инициирует запуск той или иной процедуры нажатием клавиш “Enter”, “стрелка вверх”, ”стрелка вниз”.

Программа начинается с вывода меню на экран, меню состоит

Меню состоит из семи пунктов, расположенных в следующей последовательности:

  • ОФОРМЛЕНИЕ НОГОГО ПАССАЖИРА

  • ВЫВЕСТИ СПИСОК ВСЕХ ПАССАЖИРОВ

  • УДАЛИТЬ ИНФОРМАЦИЮ О ПАССАЖИРЕ

  • НАЙТИ ПАССАЖИРА

  • ОЧИСТИТЬ СПИСОК

  • ВЫХОД


Употребление процедур пунктов меню.

Процедура “ВЫВЕСТИ СПИСОК ВСЕХ ПАССАЖИРОВ” используется для просмотра всех пассажиров всех рейсов.

Процедура “УДАЛИТЬ ИНФОРМАЦИЮ О ПАССАЖИРЕ” используется для удаления пассажира. Сначала вводится фамилия пассажира, которого необходимо удалить, фамилия вводиться с клавиатуры. Если такая фамилия есть, то программа спрашивает подтверждение для удаления “Пассажир найден, удалить его д/н” если будет нажата клавиша “д”, то пассажир будет удален из базы данных, если же “н”, то удаление будет отменено.

Процедура “НАЙТИ ПАССАЖИРА” используется для удобства поиска пассажира. Фамилия вводится с клавиатуры. При нахождении фамилии пассажира выводятся его данные: фамилия, номер паспорта, номер рейса и направление. При не нахождении фамилии выводится на экран сообщение “Пассажир отсутствует!”.

Процедура “ОЧИСТИТЬ СПИСОК” удаляет все фамилии из списка. При входе в эту процедуру появляется сообщение “Вы действительно хотите удалить базу данных о пассажирах (д/н)”, если будет нажата клавиша “д”, то база данных будет удалена, если же “н”, то удаление будет отменено.


Описание алгоритма задачи

Сначала, подключаем модуль crt- позволяющий проще управлять режимами экрана, расширенными кодами клавиатуры и цветом.

Вводим константы stand – цвет невыделенного пункта меню и sel – цвет выделенного пункта меню, а так же n – количество пунктов.

Затем идет описание записей файла «train.dat.»:pas, nomertown– переменные Ф.И.О пассажира и номер – направление поезда, имеющие строковый тип, pasp, nomertrain – переменные номера паспорта и номера поезда, имеющие целый тип.

Теперь идёт описание записей файла «railst.dat»:time, model, nrnap – время отхода, тип поезда, номер – направление, price, chpm – цена билета, число посадочных мест.

Глобальные переменные: массивы menu, menu1 строкового типа с количеством элементов от 1 до n, хранят названия пунктов меню и подменю; переменная целого типа punkt обозначает номер выделенного пункта; символьная переменная ch выведенный символ; x и y целого типа - координаты первой строки меню; j, j1 - параметры цикла; ff и w файловые переменные «airport.dat» и «airbase.dat» соответственно, аналогично buf и buv – переменные компонент файлов;dlprov, nrnap – переменная проверки и номер - направление; mas, mas1 – массивы для “tairport.dat”, “airbase.dat”; символьная переменная k определяет условия да/нет в операторах if…then…else ; f–флажок.

Программа содержит 14 процедур.


Две из них «menutoscr» и «menutoscr отвечают за вывод меню и подменю на экран. Процедуры содержат описания одной локальной переменной i параметра цикла. Начинаются процедуры с очистки экрана – clrscr. Далее идет цикл for…to… do, выводящий меню на экран.

В циклах, с помощью процедуры gotoxy, курсор каждый раз перемещается на позицию вниз, где и выводится заголовок соответствующих пунктов меню и подменю.

Вводим переменную textattr, которая отвечает за цвет фона и символов. Присваиваем ей значение константы sel, то есть задаем цвет выделенного пункта и переводим курсор на текущий пункт. Выделяем его и задаем цвет невыделенного пункта.


Процедура «new_pass» вводит нового пассажира. Начинаем процедуру с описания локальных переменных. Обнуляем локальный флажок mozno, потом происходит очистка экрана – clrscr. Открываем для записи данных нового пассажира файл «airport.dat». Здесь вводиться: Ф.И.О, номер паспорта.


Процедура «maspas» - Предназначена для формирования из пассажиров массива, для последующего их удаления. Открываем уже существующий файл train.dat Присваиваем переменной j-1. А в цикле постусловия repeat…until формируем из пассажиров массив, который нужен для удаления пассажиров.


Процедура «delete_pass» начинается с очистки экрана – clrscr, обнуляем флажок. Потом вводится фамилия, которую нужно удалить. В цикле repeat…until оператор условия if…then выполняется (пассажир найден), то происходит удаление пассажира, если пассажир был успешно удалён, то появляется сообщение- “Пассажир”----” был удалён!” и флажку присваивается 1. Иначе присваивается-2. В следующем if…then файл обновляется, и массив без пассажира записывается в файл. Далее создаётся новый файл с этим же именем. В цикле с постусловием repeat…until переменной buf присваивается i –тое значение элемента массива. Файл закрывается.

Когда флажок не равняется 1, то в цикле if…then печатается сообщение “Пассажир не найден!”. Если же флажок равняется 2, то печатается сообщение ”Удаление отменено!”.Delay - используется для задержки сообщения об удалении.


Процедура «search_pass» предназначена для поиска пассажира в базе данных. Начинаем процедуру с описания локальных переменных, потом происходит очистка экрана – clrscr. Используем оператор reset для открытия уже существующего файла. В цикле repeat…until читается информация. В условном операторе if… then читается введённые Ф.И.О, и распечатываются данные о конкретном пассажире (т.е. Ф.И.О, ном. паспорта, ном. рейса - пункт назначения). Закрываем файл. После этого флажку присваивается значение-1. Если флажок равняется -0 , то печатается сообщение “Пассажир не найден!”


Процедура «new_airbase» производит полную очистку базы данных о пассажирах. Начинаем процедуру с очистки экрана – clrscr. В операторе if…then задаём условие очистки базы данных. Выводим сообщение “Вы действительно хотите очистить базу данных о пассажирах (д/н)?-”. Соответственно, переменной k присваивается одно из значений «д» или «н». При k= «д», с помощью процедур rewrite, данные в файлах удаляются. В противном случае выход из процедуры. После этого выводится ее на экран сообщение- “База Аэропорта очищена!”.


Процедура «search_base» предназначена для поиска рейса в базе данных. Начинаем процедуру с очистки экрана – clrscr. Вводится номер рейса и направление через тире. Используем оператор reset для открытия уже существующего файла. В цикле repeat…until читается информация. В условном операторе if… then читается введённый номер рейса и направление, и распечатываются данные об рейсе (т.е номер рейса - направление, время отхода, цена билета (в руб.), тип поезда). Закрываем файл. После этого флажку присваивается значение-1. Если флажок равняется -0 , то печатается сообщение “Рейс не найден!”


Процедура «new_base» производит полную очистку базы данных о рейсах. Начинаем процедуру с очистки экрана – clrscr. В операторе if…then задаём условие очистки базы данных о рейсах. Выводим сообщение “Вы действительно хотите очистить базу данных расписания (д/н)?-“. Соответственно, переменной k присваивается одно из значений «д» или «н». При k= «д», с помощью процедур rewrite, данные в файлах удаляются. В противном случае выход из процедуры. После этого выводится ее на экран сообщение- “База расписания Аэропорта очищена!”.

Основная программа так же начинается с очистки экрана – clrscr. Определяем имена файлов «Airport.dat», «Airbase.dat» и связываем их с файловыми переменными процедурой assign.

Задаём названия пунктов меню. Переменной номера выделенного пункта присваиваем значение единицы. Определяем координаты первой строки меню. Переменной цвета символов и фона присваиваем значение невыделенного пункта. Обращаемся к процедуре menutoscr. Входим в цикл передвижения по меню repeat…until ch=chr(27) (до обращения к пункту «Выход»).

В цикле считываем код нажатой клавиши. С помощью условного оператора входим в оператор выбора кодов клавиш. Если нажата стрелка вниз, то с помощью процедуры gotoxy, оператора write, констант sel и stand выделяем необходимый пункт меню. Аналогичные операции проводим при нажатии стрелки вверх. При нажатии Enter в операторе выбора открывается процедура необходимого пункта. В конце цикла обращаемся к процедуре Menutoscr. Аналогичные операции выполняются и для процедуры Menutoscr1.

В конце программы закрываем файлы «Airport.dat» и «Airbase.dat».


Приложения

Листинги программы


Распечатка результатов решения задачи по данным контрольного примера


program kursovik;

uses crt;

type

airport=record

fio,city:string[30];

pasp,nomerreisa:string[6];

end;

airbase=record

time,model,kuda:string[15];

price,klass,numreis:integer;

end;

const

norm=$20;цвет невыделенного пункта

sel=$50; цвет выделенного пункта

n=7;

var

menu,menu1:array[1..n] of string[30]; название пунктов меню

mas:array[1..50] of airport;

mas1:array[1..50] of airbase;

punkt:integer;номер выделенного пункта

ch:char;введенный символ

j,j1:integer;переменная содержащая общее число пассажиров,

число рейсов

x,y,n1:integer;координаты первой строки меню

procedure Menutoscr;вывод меню на экран

var i:integer;

begin

punkt:=1;

clrscr;

for i:=1 to n do

begin

gotoxy(x,y+i);

writeln(menu[i+1]);

end;

textattr-предопределенная переменная,отвечающая за цвет фона

и символов

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]); выделим строку меню

textattr:=norm;

end;

procedure Menutoscr1;вывод меню на экран

var i:integer;

begin

punkt:=1;

clrscr;

for i:=1 to n1 do

begin

gotoxy(x,y+i);

writeln(menu1[i+1]);

end;

textattr-предопределенная переменная,отвечающая за цвет фона

и символов

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu1[punkt]); выделим строку меню

textattr:=norm;

end;

procedure new_pass;

var

ff:file of airport;

buf:airport;

ch,k:char;

begin

clrscr;

assign(ff,'airport.dat');

reset(ff);

seek(ff,filesize(ff));

writeln(' "Оформление нового пассажира"');

writeln(' Введите фио--------------');

writeln(' Введите номер паспорта---');

writeln(' Введите пункт назначения-');

writeln(' Введите номер рейса------');

writeln(' Подтверждение д/н--------');

with buf do

begin

gotoxy(29,2);readln(fio);

gotoxy(29,3);readln(pasp);

gotoxy(29,4);readln(city);

gotoxy(29,5);readln(nomerreisa);

end;

gotoxy(29,6);readln(k);

if (k='д') or (k='Д') then

begin

clrscr;

write(ff,buf);

gotoxy(30,12);

write('Пассажир записан в базу данных!');

end

else

begin

clrscr;

gotoxy(30,12);

write('Запись в базу отменена!');

end;

delay(9999);

delay(5000);

until (ch=chr(162)) and (ch=chr(130));

close(ff);

end;

procedure print_pass;

var

ff:file of airport;

buf:airport;

ch,k:char;

et:integer;

begin

clrscr;

assign(ff,'airport.dat');

reset(ff);

writeln(' Список пассажиров:');

et:=1;

repeat

read(ff,buf);

writeln(' -',buf.fio);

if et=23 then readln;

et:=et+1;

until eof(ff);

close(ff);

readln;

end;

procedure maspas;

var

buf:airport;

ff:file of airport;

begin

assign(ff,'airport.dat');

reset(ff);

j:=1;

repeat

read(ff,buf);

mas[j]:=buf;

j:=j+1;

until eof(ff);

j:=j-1;

close(ff);

end;

procedure delete_pass;

var

ff:file of airport;

i,i1,f:integer;

buf:airport;

k:char;

name:string[30];

begin

clrscr;

writeln(' Удалениe информации о пассажире:');

writeln(' Введите Ф.И.О. пассажира, которого хотите удалить из базы данных');

write(' -');readln(name);

i:=1;

f:=0;

repeat

if mas[i].fio=name then

begin

gotoxy(30,12);write('Пассажир найден, удалить его (д/н)-');

readln(k);

if (k='д') or (k='Д') then

begin

for i1:=i to j-1 do

mas[i1]:=mas[i1+1];

j:=j-1;

gotoxy(30,12);

write('Пассажир-"',name,'"-был удалён! ');

f:=1;

end

else

begin

i:=j;

f:=2;

end;

end;

i:=i+1;

until (i=j+1) or (f=1);

if f=1 then

begin

assign(ff,'airport.dat');

rewrite(ff);

i:=1;

repeat

buf:=mas[i];

write(ff,buf);

i:=i+1;

until i=j+1;

close(ff);

end

else

begin

gotoxy(30,12);

if f=0 then writeln('Пассажир не найден! ');

end;

if f=2 then writeln('Удаление отменено! ');

delay(9999);

delay(5000);

end;

procedure search_pass;

var

ff:file of airport;

i,i1,f:integer;

buf:airport;

k:char;

name:string[30];

begin

clrscr;

writeln(' Поиск информации о пассажире:');

writeln(' Введите Ф.И.О. пассажира, которого хотите найти');

write(' -');readln(name);

i:=1;

f:=0;

assign(ff,'airport.dat');

reset(ff);

repeat

read(ff,buf);

if buf.fio=name then

begin

clrscr;

writeln(' Информация о пассажире:');

writeln(' Ф.И.О.-----------');

writeln(' Номер паспорта---');

writeln(' Пункт назначения-');

writeln(' Номер рейса------');

gotoxy(22,2);writeln(buf.fio);

gotoxy(22,3);writeln(buf.pasp);

gotoxy(22,4);writeln(buf.city);

gotoxy(22,5);writeln(buf.nomerreisa);

f:=1;

readln;

end;

until eof(ff);

close(ff);

if f=0 then

begin

writeln('Пассажир не найден!');

delay(9999);

delay(5000);

end;

end;

procedure new_airport;

var

ff:file of airport;

k:char;

begin

clrscr;

gotoxy(36,12);

textbackground(red);

textcolor(blink);

writeln('ВНИМАНИЕ!');

textattr:=norm;

gotoxy(10,13);

write('Вы действительно хотите очистить базу данных о пассажирах (д/н)?-');

readln(k);

if (k='д') or (k='Д') then

begin

clrscr;

assign(ff,'airport.dat');

rewrite(ff);

gotoxy(30,12);

writeln('База АЭРОПОРТА очищена!');

close(ff);

delay(9999);

delay(5000);

end;

end;

procedure new_reis;

var

ff:file of airbase;

buf:airbase;

ch,k:char;

begin

clrscr;

assign(ff,'airbase.dat');

reset(ff);

seek(ff,filesize(ff));

writeln(' "Расписание вылетов:"');

writeln(' Номер рейса--------------');

writeln(' Направление--------------');

writeln(' Время вылета(моск)-------');

writeln(' Цена билета(руб)---------');

writeln(' Тип самолета-------------');

writeln(' Класс(1 или 2)-----------');

writeln(' Подтверждение д/н--------');

with buf do

begin

gotoxy(29,2);readln(numreis);

gotoxy(29,3);readln(kuda);

gotoxy(29,4);readln(time);

gotoxy(29,5);readln(price);

gotoxy(29,6);readln(model);

gotoxy(29,7);readln(klass);

end;

gotoxy(29,8);readln(k);

if (k='д') or (k='Д') then

begin

clrscr;

write(ff,buf);

gotoxy(30,12);

write('Рейс записан в базу данных!');

end

else

begin

clrscr;

gotoxy(30,12);

write('Запись в базу отменена!');

end;

delay(9999);

delay(5000);

until (ch=chr(162)) and (ch=chr(130));

close(ff);

end;

procedure print_reis;

var

ff:file of airbase;

buf:airbase;

ch,k:char;

et:integer;

begin

clrscr;

assign(ff,'airbase.dat');

reset(ff);

writeln(' Расписание вылетов(время московское):');

et:=1;

repeat

read(ff,buf);

writeln(' Рейс-',buf.numreis,': Самара-',buf.kuda,'; ',buf.time,'; Стоимость билета:',buf.price,'(рублей)'); if et=23 then readln;

et:=et+1;

until eof(ff);

close(ff);

readln;

end;

procedure masbase;

var

buf:airbase;

ff:file of airbase;

begin

assign(ff,'airbase.dat');

reset(ff);

j1:=1;

repeat

read(ff,buf);

mas1[j1]:=buf;

j1:=j1+1;

until eof(ff);

j1:=j1-1;

close(ff);

end;

procedure delete_base;

var

ff:file of airbase;

i,i1,f:integer;

buf:airbase;

k:char;

nreis:integer;

begin

clrscr;

writeln(' Удаление рейса из расписания:');

writeln(' Введите номер рейса,который хотите удалить из расписания');

write(' -');readln(nreis);

i:=1;

f:=0;

repeat

if (mas1[i].numreis=nreis) then

begin

gotoxy(30,12);write('Рейс найден, удалить его (д/н)-');

readln(k);

if (k='д') or (k='Д') then

begin

for i1:=i to j1-1 do

mas1[i1]:=mas1[i1+1];

j1:=j1-1;

gotoxy(30,12);

write('Рейс номер-"',nreis,'"-был удалён! ');

f:=1;

end

else

begin

i:=j;

f:=2;

end;

end;

i:=i+1;

until (i=j1+1) or (f=1);

if f=1 then

begin

assign(ff,'airbase.dat');

rewrite(ff);

i:=1;

repeat

buf:=mas1[i];

write(ff,buf);

i:=i+1;

until i=j1+1;

close(ff);

end

else

begin

gotoxy(30,12);

if f=0 then writeln('Рейс не найден! ');

end;

if f=2 then writeln('Удаление отменено! ');

delay(9999);

delay(5000);

end;

procedure search_base;

var

ff:file of airbase;

i,i1,f:integer;

buf:airbase;

k:char;

nreis:integer;

begin

clrscr;

writeln(' Поиск рейса в расписании:');

writeln(' Введите номер рейса, который хотите найти');

write(' -');readln(nreis);

i:=1;

f:=0;

assign(ff,'airbase.dat');

reset(ff);

repeat

read(ff,buf);

if buf.numreis=nreis then

begin

clrscr;

writeln(' Номер рейса--------------');

writeln(' Направление--------------');

writeln(' Время вылета(моск)-------');

writeln(' Цена билета(руб)---------');

writeln(' Тип самолета-------------');

writeln(' Класс(1 или 2)-----------');

gotoxy(29,1);writeln(buf.numreis);

gotoxy(29,2);writeln(buf.kuda);

gotoxy(29,3);writeln(buf.time);

gotoxy(29,4);writeln(buf.price);

gotoxy(29,5);writeln(buf.model);

gotoxy(29,6);writeln(buf.klass);

f:=1;

readln;

end;

until eof(ff);

close(ff);

if f=0 then

begin

writeln('Рейс не найден!');

delay(9999);

delay(5000);

end;

end;

procedure new_base;

var

ff:file of airbase;

k:char;

begin

clrscr;

gotoxy(36,12);

textbackground(red);

textcolor(blink);

writeln('ВНИМАНИЕ!');

textattr:=norm;

gotoxy(10,13);

write('Вы действительно хотите очистить базу данных расписания (д/н)?-');

readln(k);

if (k='д') or (k='Д') then

begin

clrscr;

assign(ff,'airbase.dat');

rewrite(ff);

gotoxy(30,12);

writeln('База расписания АЭРОПОРТА очищена!');

close(ff);

delay(9999);

delay(5000);

end;

end;

основная программа

Begin clrscr;

menu[1]:='ОФОРМЛЕНИЕ НОВОГО ПАССАЖИРА';

menu[2]:='ВЫВЕСТИ СПИСОК ПАССАЖИРОВ';

menu[3]:='УДАЛИТЬ ИНФОРМАЦИЮ О ПАССАЖИРЕ';

menu[4]:='НАЙТИ ПАССАЖИРА';

menu[5]:='ОЧИСТИТЬ СПИСОК';

menu[6]:='ВЫХОД';

menu[7]:='ПРОСМОТР БАЗЫ';

menu1[1]:='ЗАПИСЬ НОВОГО РЕЙСА';

menu1[2]:='ПОКАЗАТЬ РАСПИСАНИЕ';

menu1[3]:='УДАЛИТЬ РЕЙС';

menu1[4]:='ПОИСК РЕЙСА';

menu1[5]:='ОЧИСТИТЬ РАСПИСАНИЕ';

menu1[6]:='ВЕРНУТЬСЯ В ГЛАВНОЕ МЕНЮ';

punkt:=1;x:=30;y:=8;textattr:=norm;n1:=6;

Menutoscr; repeat

ch:=Readkey;

if ch=chr(0) then

begin

ch:=ReadKey;

case ch of

chr(80): стрелка вниз

if punkt

begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt+1;

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:=norm;

end;

chr(72): стрелка вверх

if (punkt<=n) and (punkt>1) then begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt-1;

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:=norm;

end;

end; case of

end

else

if ch=chr(13) then нажата клавиша

begin

case punkt of

1:new_pass;

2:print_pass;

3:

begin

maspas;

delete_pass;

end;

4:search_pass;

5:new_airport;

6:ch:=chr(27);

7:begin

Menutoscr1; repeat ch:=Readkey; if ch=chr(0) then

begin ch:=ReadKey; case ch of

chr(80): стрелка вниз if punkt

chr(72): стрелка вверх

if (punkt<=n1) and (punkt>1) then

begin

gotoxy(x,y+punkt-1);

write(menu1[punkt]);

punkt:=punkt-1;

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu1[punkt]);

textattr:=norm;

end;

end; case of

end

else

if ch=chr(13) then нажата клавиша

begin

case punkt of

1:new_reis;

2:print_reis;

3:

begin

masbase;

delete_base;

end;

4:search_base;

5:new_base;

6:ch:=chr(162);

end; case of

menutoscr1;

end;

until (ch=chr(27)) or (ch=chr(162)) or(ch=chr(130));27код

end; case of

end;

Menutoscr; end;

until ch=chr(27);27код

End.


Оформление нового пассажира

Продажа билетов

Вывести список всех пассажиров

Удалить информацию о пассажире

Найти пассажира

Очистить список

Выход


Продажа билетов


Расписание отходов поездов:


{ВЫВОДИТ РАСПИСАНИЕ}


“Оформление нового пассажира”


Ведите Ф. И. О

Пенкин И.В.

Петров П.П

Иванов И.И.

Номер паспорта

564743

812763

247398

Рейс

123

456

789

Подтверждение д/н

Д

Д

Д





Замечание: Пассажиров необходимо вводить по очереди.

Вывести список всех пассажиров

Продажа билетов

Вывести список всех пассажиров

Удалить информацию о пассажире

Найти пассажира

Очистить список

Выход


Ф. И. О.

Пенкин И.В.

Петров П.П.

Иванов И.И.


Удалить информацию о пассажире


Продажа билетов

Вывести список всех пассажиров

Удалить информацию о пассажире

Найти пассажира

Очистить список

Выход


Введите Ф.И.О пассажира, которого хотите удалить:


Пенкин И.В.


Список пассажиров после удаления:


Ф. И. О.

Петров П.П.

Иванов

И.И

Номер паспорта

812763

247398

Номер рейса

999

333

Подтверждение д/н

Д

Д





Продажа билетов

Вывести список всех пассажиров

Удалить информацию о пассажире

Найти пассажира

Очистить список

Выход


Введите Ф.И.О. ,которого хотите найти:


Иванов И.И

Информация о пассажире:


Ф. И. О.

Иванов И.И

Номер паспорта

247398

Номер рейса

333




Продажа билетов

Вывести список всех пассажиров

Удалить информацию о пассажире

Найти пассажира

Очистить список

Выход


Вы действительно хотите очистить базу данных о пассажирах(д/н)?-Д

База данных о пассажирах очищена!


Область применения:

Эта программа используется в кассе Аэропорта, для упрощённой работы с пассажирами и рейсами.


Список используемой литературы:

Turbo Pascal 7.0 (Старший курс). Автор: Фигурнов. В.Э.

Шаг за шагом Turbo Pascal 7.0 начальный курс. Автор :QUA .

Лекции по Паскалю.



СОДЕРЖАНИЕ:


Cодержание задания.

Описание предметной области.

Описание алгоритма задачи.

Листинг программы.

Распечатка результатов решения задачи по данным контрольного примера.

Область применения.

Список используемой литературы.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Хватит париться. На сайте FAST-REFERAT.RU вам сделают любой реферат, курсовую или дипломную. Сам пользуюсь, и вам советую!
Никита02:03:00 02 ноября 2021
.
.02:02:59 02 ноября 2021
.
.02:02:59 02 ноября 2021
.
.02:02:58 02 ноября 2021
.
.02:02:58 02 ноября 2021

Смотреть все комментарии (22)
Работы, похожие на Реферат: Касса аэропорта

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(286818)
Комментарии (4154)
Copyright © 2005-2021 HEKIMA.RU [email protected] реклама на сайте