Курсовая: Касса аэропорта - текст курсовой. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Курсовая

Касса аэропорта

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Курсовая работа
Язык курсовой: Русский
Дата добавления:   
 
Скачать
Архив Zip, 27 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникальной курсовой работы

Узнайте стоимость написания уникальной работы

СОДЕРЖАНИЕ : C одержание з адания. Описание предметной области. Описание алго ритма задачи. Листинг программы. Распечатка результатов решения задачи по данным контрольного примера. Область применения. Список используемой литературы. Волжский университет имени В.Н . Татищева Кафедра «Информатик а и системы управления» Специальность : 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 , mas 1 – массивы для “ tairport . dat ” , “ airbase . dat ” ; символьная переменная k определяет условия да /нет в операт орах if … then … else ; f – флажок . Программа содержит 14 процедур . Две из них « menutoscr » и « menutoscr 1» отвечают за вывод меню и п одменю на экран . Процедуры содержат оп исания одной локальной переменной i параметра цикл а . Начинаются процедуры с очистки экрана – clrscr . Дал ее идет цикл for … to … do , выводящий меню на экран . В циклах , с помощью процедуры gotoxy , курсор каждый раз перемещается на позицию вниз , где и выводится заголовок соответствующих пунктов меню и п одменю. Вводим переменную textattr, которая отвечает за цвет фона и символов . Присваиваем ей значение константы sel, то есть задаем цве т выделенного пункта и переводим курсор н а текущий пункт . Выделяем его и задае м цвет невыделенного пункта. Процедура « new _ pass » вводит нового пассажира . Начинаем проце дуру с описания локальных переменных . Обнуляе м локальный флажок mozno , потом происходит очистка экрана – clrscr . Открываем для записи данных нового пассажи ра файл « a irport . dat » . Здесь вводиться : Ф.И.О , номер паспорта . Процедура « maspas » - Предназначена для формирования из пасс ажиров массива , для последующего их удаления . Открываем уже существующий файл train . dat Присваиваем переменной j -1. А в цикле постусловия rep eat … 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 , данные в файлах удаляются . В противном случае выход из процедуры . Посл е этого выводится ее на экран сообщение - “База Аэропорта очищена !” . Процедура « sear ch _ base » предназначена для поиска рейса в б азе данных . Начинаем процедуру с очистки э крана – clrscr . Вводится номер рейса и направление через тире . Используем оператор reset для открытия уже существующего файла . В цикле repeat … until читается инфо рмация . В условном операторе if … then читается введ ённый номер рейса и направление , и распеча тываются данные об рейсе (т.е номер рейса - направление , время отхода , цена билета (в руб .), тип поезда ). Закрываем файл . После этого флажку присваивается значение -1. Ес ли флажок равняется -0 , то печатается со общение “Рейс не найден !” Процедура « new _ base » производит полную очистку базы данных о рейсах . Начинаем процедуру с очистки экрана – clrscr . В операторе if … then задаём условие очистки базы данны х о рейсах . Вывод им сообщение “Вы действительно хотите очистить базу данных рас писания (д /н )?-“ . Соответственно , переменной k присваива ется одно из значений «д» или «н» . При k = «д» , с помощью процедур rewrite , данные в файлах удаляются . В противном случае выход из процедур ы . После этого выводится ее на эк ран сообщение - “База расписания Аэропорта очи щена !”. Основная программа так же начинается с очистки экрана – clrscr . Определяем имена файлов « Airport . dat » , « Airbase . dat » и связываем их с файловыми переменными пр оцедурой a ssign . Задаём названия пунктов меню . Переменной номера выделенного пункта присваиваем значен ие единицы . Определяем координаты первой стро ки меню . Переменной цвета символов и фона присваиваем значение невыделенного пункта . О бращаемся к процедуре menutoscr . Входим в цикл передвиж ения по меню repeat … until ch = chr (27) (до о бращения к пункту «Выход» ). В цикле считываем код нажатой клавиши . С помощью условного оператора входим в оператор выбора кодов клавиш . Если нажата стрелка вниз , то с помощью процедуры gotox y , оператора write , констант sel и stand выделяем необходимый пункт меню . А налогичные операции проводим при нажатии стре лки вверх . При нажатии Enter в операторе выбора открывается процедура необходимого пункта . В конце цикла обращаемся к процедуре Menutos cr . Аналогич ные операции выполняются и для процедуры Menutoscr 1. В конце программы закрываем файлы « 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 , j 1: integer ;переменная содержащая общее число пассажиров, число рей сов x , y , n 1: 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 ( menu 1[ 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(' Ф.И.О .-----------'); writ eln (' Номер паспорта ---'); 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]:='ПРОСМОТР БАЗЫ '; menu 1[1]:='ЗАПИСЬ НОВОГО РЕЙСА '; menu 1[2]:='ПОКАЗАТЬ РАСПИСАНИЕ '; menu 1[3]:='УДАЛИТЬ РЕЙС '; menu 1[4]:='ПОИСК Р ЕЙСА '; menu 1[5]:='ОЧИСТИТЬ РАСПИСАНИЕ '; menu 1[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 punkt1) 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 punkt1) 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 . Ле кции по Паскалю.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Самое прекрасное в природе - это отсутствие человека.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, курсовая по программированию "Касса аэропорта", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru