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

Волжский университет имени В.Н. ТатищеваКафедра «Информатика и системы управления»

Специальность: 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» и «menutoscr1»отвечают за вывод меню и подменю на экран. Процедуры содержат описания однойлокальной переменной 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…untilch=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;

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;

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;

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;

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('Удаление отменено!

еще рефераты

Еще работы по программированию, базе данных

Реферат по программированию, базе данных

Библиотека колледжа

29 Августа 2013

Реферат по программированию, базе данных

Работа с Базами данных в Delphi

29 Августа 2013

Реферат по программированию, базе данных

Создание текстового редактора в Turbo Pascal

29 Августа 2013

Реферат по программированию, базе данных

Микропроцессорная техника. Микроконтроллер в двухпозиционном регуляторе

29 Августа 2013