|
Касса аэропортаКасса аэропорта[pic] Волжский университет имени В.Н. Татищева Кафедра «Информатика и системы управления» Специальность: 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…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 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 (. Лекции по Паскалю. |
|
