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

💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Специальность:
220100 «Вычислительные
машины, комплексы
системы и сети»
Студенту________________________________________________________
Группа__________________________________________________________


Тема
проекта____________________________________________________
Календарный
график
задания_______________________________________
При продаже
билетов регистрируют
пассажиров.
Информацию
о каждом пассажире
вводится в
диалоге по
запросам программы.
Информация
о каждом пассажире
состоит из
следующих полей
:
Сведения
о пассажирах
сохраняются
в файле airbase.dat
,состоящем из
отдельных
записей ,где
одна запись
хранит всю
информацию
об одном пассажире.
Программа
содержит следующие
процедуры и
функции;
-Продажа
билета (регистрирует
нового пассажира);
Указанные
процедуры и
функции выбираются
из меню.
В пункте
ПРОДАЖА БИЛЕТА
- вводится Ф.И.О
, номер паспорта
, рейс, т.е регистрируется
новый
пассажир
, информация
о нем вносится
в базу данных.
В пункте
НАЙТИ - выводится
информация
о пассажире.
В пункте
УДАЛИТЬ ПАССАЖИРА
- по введенной
Ф.И.О информация
о данном пассажире
удаляется из
базы данных.
Старший
преподаватель
___________________________Ахмедханлы
Д.М.
Заведующий
кафедрой ИиСУ
__________________________Краснов
С.В.
Декан
ФииТ
_________________________________________Краснов
С.В.

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

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


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

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



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



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

Процедура
“ ОЧИСТИТЬ
СПИСОК ”
удаляет все
фамилии из
списка. При
входе в эту
процедуру
появляется
сообщение “Вы
действительно
хотите удалить
базу данных
о пассажирах
(д/н)”, если будет
нажата клавиша
“д”, то база
данных будет
удалена, если
же “н”, то удаление
будет отменено.
Сначала,
подключаем
модуль crt -
позволяющий
проще управлять
режимами экрана,
расширенными
кодами клавиатуры
и цветом.
Вводим
константы stand
– цвет невыделенного
пункта меню
и sel
– цвет выделенного
пункта меню,
а так же n
– количество
пунктов.
Затем
идет описание
записей файла
«train.dat.»:pas,
nomertown–
переменные
Ф.И.О пассажира
и номер – направление
поезда, имеющие
строковый тип,
pasp,
nomertrain
– переменные
номера паспорта
и номера поезда,
имеющие целый
тип.
Теперь
идёт описание
записей файла
«railst.dat»:time,
model,
nrnap
– время отхода,
тип поезда,
номер – направление,
price,
chpm
– цена билета,
число посадочных
мест.

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



Две из них
« menutoscr »
и « menutoscr 1»
отвечают за
вывод меню и
подменю на
экран. Процедуры
содержат описания
одной локальной
переменной
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».
Распечатка
результатов
решения задачи
по данным
контрольного
примера
menu,menu1:array[1..n]
of string[30]; название
пунктов меню

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

write('Пассажир-"',name,'"-был
удалён! ');
if
f=0 then writeln('Пассажир
не найден! ');
if
f=2 then writeln('Удаление
отменено! ');

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

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

writeln('
Информация
о пассажире:');
gotoxy(22,5);writeln(buf.nomerreisa);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

write('Рейс
номер-"',nreis,'"-был
удалён! ');
if
f=0 then writeln('Рейс не
найден! ');
if
f=2 then writeln('Удаление
отменено! ');

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

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

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

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

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

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

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

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

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

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

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

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

menu1[6]:='ВЕРНУТЬСЯ
В ГЛАВНОЕ МЕНЮ';
punkt:=1;x:=30;y:=8;textattr:=norm;n1:=6;
if
(punkt<=n) and (punkt>1) then begin
Menutoscr1;
repeat ch:=Readkey; if ch=chr(0) then

until (ch=chr(27)) or
(ch=chr(162)) or(ch=chr(130));27код
Замечание:
Пассажиров
необходимо
вводить по
очереди.
Введите
Ф.И.О пассажира,
которого хотите
удалить:

Введите
Ф.И.О. ,которого
хотите найти:
Вы
действительно
хотите очистить
базу данных
о пассажирах(д/н)?-Д
Эта
программа
используется
в кассе Аэропорта,
для упрощённой
работы с пассажирами
и рейсами.
Turbo
Pascal
7.0 (Старший курс).
Автор: Фигурнов.
В.Э.

Шаг
за шагом Turbo
Pascal
7.0 начальный
курс. Автор
:QUA
 .
Распечатка
результатов
решения задачи
по данным
контрольного
примера.

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

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: Касса аэропорта
Эссе На Тему Миротворческая Деятельность
Топик: The Chernobyl Accident
Маркетинг В Сестринском Деле Реферат
Реферат: Правление Бориса Годунова 1598 - 1605 гг.
Реферат: Стресс на рабочем месте
Методологический Аппарат Курсовой Работы Пример
Статья: Иван Алексеевич Бунин (1870-1953)
Реферат: Политические лидеры (Контрольная)
Реферат по теме Принципы таксономии
Реферат по теме Уильям Джемс
Анализ и комплекс мероприятий по обслуживанию локальной сети службы по делам детей Северодонецкого городского совета
Сочинение Неясность Слова Есть Неизменный Признак
Основные Части Курсовой Работы
Сочинение: Анализ стихотворения А. Блока Незнакомка 2
Реферат: Использование CGI при создании интерактивных интерфейсов
Курсовая работа по теме Туристические маршруты центрально-европейского региона на примере Германии
Реферат На Тему Иностранный Язык
Курсовая Работа На Тему Классификация И Использование Информации
Реферат: Противостояние личности и тоталитаризма на примере произведений А.И. Солженицына "Раковый корпус" и "Один день Ивана Денисовича"
Контрольная работа: Контроллинг на предприятии
Реферат: Эффективная технология работы с растущими потоками несистематизированной текстовой информации
Реферат: Тифлопсихология
Реферат: Организация и управление риском в банковской деятельности