CODE9003 КУРСОВАЯ РАБОТА Коломенской Ольги domains z,nz,n,n1,chp,iinteger fio,ma,ru,ksymbol database -svod1 svod1n,k,nz,ma,ru,chp database -lolo lolon,fio,i,ma,ru,chp database -kuku kukun,fio,nz,k,ru,chp database svodn,fio,nz,ma,ru,chp predicates start patch load selecti seli,i processi procedurei svei lodi repeat goal start. clauses Процедура создания основного меню и загрузки базы данных start- makewindow1,2,7,Картотека ГАИ,0,0,25,80, clearwindow, load, patch.Процедура управления основным меню patch- repeat, cursor7,0, write 0 - О пpогpамме ,nl, write 1 - коррекция данных,nl, write 2 - просмотр базы,nl, write 3 - загрузка базы,nl, write 4 - сохранение базы,nl, write 5 - создание новой базы,nl, write 6 - ввод новых данных,nl, write 7 - просмотр-добавление,nl, write 8 - выход из программы,nl, write , readintChoice, Choice 0, Choice 9, clearwindow, processChoice, clearwindow, Choice 8, retractall, removewindow.
Процедура поиска и загрузки файла содержащего базу данных load- existfileolia.dat, consultolia.dat, cursor1,2, writeБаза загружена. load- cursor1,2, writeНет базы на диске.
Пpоцедуpа ввода новых данных process6- makewindow1,2,7,Ввод новых данных,0,0,25,80, nl, writeВведите порядковый номер ,readintK,nl, writeВведите Фамилию.И.О. ,readlnF,nl, writeВведите номерной знак ,readintG,nl, writeВведите марку автомобиля ,readlnY,nl, writeВведите район учета ,readlnT,nl, writeВведите число автотранспортных,nl, write происшествий ,readintP, nl, N1K,FIO1F,NZ1G,MA1Y,RU1T,CHP1P, assertzsvodN1,FIO1,NZ1,MA1,RU1,CHP1, removewindow, fail. Процедура просмотра-добавления process7- makewindow1,2,7,Просмотр-добавление,0,0, 25,80, nl, writeВведите номер записи,readintA,nl,nl, svodN,FIO,NZ,MA,RU,CHP, AN, writeНомер записи ,writeA,nl, writeФамилия.И.О. ,writeFIO,nl, writeНомерной знак ,writeNZ,nl, writeМарка автомобиля ,writeMA,nl, writeРайон учета ,writeRU,nl, writeЧисло автотранспортных ,nl, write происшествий ,writeCHP,nl,nl,nl, writeНажмите на любую клавишу, readchar, removewindow process7- writeЭтого номера записи нет в базе writeПовторите введенный номер записи и продолжайте ввод данных,nl,nl,nl, writeВведите номер, readintA,nl, AN1, writeВведите Фамилию.И.О. ,readlnF,nl, writeВведите номерной знак ,readintY,nl, writeВведите марку автомабиля ,readlnJ,nl, writeВведите район учета ,readlnG,nl, writeВведите число автотранспортных,nl, write происшествий,readintK,nl, FIO1F,NZ1Y,MA1J,RU1G,CHP1K, assertzsvodN1,FIO1,NZ1,MA1,RU1,CHP1, removewindow, fail. Пpоцедуpа вывода данных о пpогpамме process0- makewindow1,2,7,О пpогpамме 0,0,25,80, write Инфоpмационно-спpавочная система,nl,nl, write картотеки ГАИ ,nl,nl, write Язык-TURBO-PROLOG v.2.0. ,nl,nl, write автоpКоломенская О. ,nl,nl, write МИРЭА, гp.ИТ-1-95 с 1995 г. ,nl,nl,nl,nl, writeНажмите на любую клавишу, readchar, removewindow.
Процедура изменения содержимого записей базы данных process1- makewindow1,2,7,Коppекция данных,0,0,25,80, nl, selectN, XN, svodX,FIO,NZ,MA,RU,CHP, writeНомер записи ,writeN,nl, writeФамилия.И.О. ,writeFIO,nl, writeНомерной знак ,writeNZ,nl, writeМарка автомабиля ,writeMA,nl, writeРайон учета ,writeRU,nl, writeЧисло автотранспортных,nl, write происшествий,writeCHP,nl, nl, writeВведите Фамилию.И.О. ,readlnFIO1,nl, writeВведите номерной знак ,readintNZ1,nl, writeВведите марку автомабиля ,readlnMA1,nl, writeВведите район учета ,readlnRU1,nl, writeВведите число автотранспортных,nl, write происшествий,readintCHP1,nl, X1X, retractsvodX,FIO,NZ,MA,RU,CHP, assertsvodX1,FIO1,NZ1,MA1,RU1,CHP1 removewindow.
Процедура просмотра содержимого базы данных process2- makewindow1,2,7,Просмотp базы,0,0,25,80, nl, write nl, write КАРТОТЕКА ГАИ ,nl, write nl, writeпоряд. фамилия номерной марка район число авто ,nl, writeномер И.О.владельца знак а.машины учета происшествий,nl, write nl, svodN,FIO,NZ,MA,RU,CHP, cursorZ cursorZ,0,writeN, cursorZ,9,writeFIO, cursorZ,24,writeNZ, cursorZ,35,writeMA, cursorZ,45,writeRU, cursorZ,55,writeCHP, cursorZ,68,write, nl, fail. process2- write nl, writeНажмите на любую клавишу, readchar, removewindow.
Процедура загрузки в память базы данных process3- nl, makewindow2,15,4,Загрузка,5,5,20,70, write1 - База будет загружена из указанного файла,nl, write2 - База будет загружена из файла olia.dat,nl, write3 - Выход в основное меню,nl, write , readintC, C 0,C 4, lodC removewindow.
Процедура сохранения базы данных process4- nl, makewindow2,15,4,Запись,5,5,20,70, write1 - База будет записана в указанный файл,nl, write2 - База будет записана в файл olia.dat,nl, write3 - Выход в основное меню,nl, write , readintI, I 0,I 4, sveI removewindow.
Процедура выбора создания новой базы process5- nl, makewindow3,2,7,Создание новой базы,0,0,25,80, write1 - База будет создана по Ф.И.О. владельца а.машины,nl, write2 - База будет создана по номерному знаку а.машины,nl, write3 - База будет создана по марке а.машины,nl, write4 - Выход в основное меню,nl, write , readintO, O 0,O 5, procedureO, removewindow. process.
Процедура создания новой базы данных и ее сохранения procedure1- makewindow1,2,7,Создание новой базы по Ф.И.О. владельца а.машины,0,0,25,80, nl, cursor7,10, retractall,svod1, nl, writeЕсли вы хотите узнать данные о а.машине , то, nl, writeВведите Ф.И.О. владельца а.машины, readlnX, svodN,FIO,NZ,MA,RU,CHP, SFIO, SX, N1N,NZ1NZ,MA1MA,RU1RU,CHP1CHP, assertsvod1N1,S, NZ1,MA1,RU1,CHP1, fail. procedure1- write nl, write КАРТОТЕКА ГАИ ,nl, write nl, writeпоряд.
Фамилия номерной марка район число авто nl, writeномер И.О. владельца знак а.машины учета происшествий,nl, write nl, svod1N1,S,NZ1,MA1,RU1,CHP1, cursorZ cursorZ,0,writeN1, cursorZ,9,writeS, cursorZ,24,writeNZ1, cursorZ,35,writeMA1, cursorZ,45,writeRU1, cursorZ,55,writeCHP1, cursorZ,68,write, fail. procedure1- write savenot.dat,svod1, nl, writeБаза сохранена в файле not.dat, nl, writeНажмите любую клавишу, readchar, removewindow procedure1- write nl, writeНевозможно сохранить созданную базу, nl, writeНажмите любую клавишу, readchar, makewindow1,2,7,ККАРТОТЕКА ГАИ,0,0,25,80. procedure2- makewindow1,2,7,Создание новой базы по номерному знаку а.машины,0,0,25,80, nl, cursor7,10, retractall,lolo, nl, writeЕсли вы хотите узнать данные о владельце а.машины, то,nl, writeВведите номерной знак а.машины, readintX, svodN, FIO,NZ,MA,RU,CHP, SNZ, SX, N1N,FIO1FIO,MA1MA,RU1RU,CHP1CHP, assertloloN1,FIO1,S,MA1,RU1,CHP1, fail. procedure2- write nl, write КАРТОТЕКА ГАИ ,nl, write nl, writeпоряд.
Фамилия номерной марка район число авто nl, writeномер И.О. владельца знак атомобиля учета происшествий,nl, write nl, loloN1,FIO1,S,MA1,RU1,CHP1, cursorZ cursorZ,0,writeN1, cursorZ,9,writeFIO1, cursorZ,24,writeS, cursorZ,35,writeMA1, cursorZ,45,writeRU1, cursorZ,55,writeCHP1, cursorZ,68,write, fail. procedure2- write savenot1.dat,lolo, nl, writeБаза сохранена в файле not1.dat, nl, writeНажмите любую клавишу, readchar, removewindow procedure2- write nl, writeНевозможно сохранить созданную базу, nl, writeНажмите любую клавишу, readchar, makewindow1,2,7,КАРТОТЕКА ГАИ,0,0,25,80. procedure3- makewindow1,2,7,Создание базы данных по марке автомобиля,0,0,25,80, nl, cursor7,10, retractall,kuku, nl, writeЕсли вы хотите узнать данные о номерах автомобиля, то, nl, writeВведите марку автомобиля, readlnX, svodN,FIO,NZ,MA,RU,CHP, SMA, SX, N1N,FIO1FIO,NZ1NZ,RU1RU,CHP1CHP, assertkukuN1,FIO1,NZ1,S,RU1,CHP1, fail. procedure3- write nl, write КАРТОТЕКА ГАИ ,nl, write nl, writeпоряд.
Фамилия намерной марка район число авто nl, writeномер И.О. владельца знак автомобиля учета происшествий,nl, write nl, kukuN1,FIO1,NZ1,S, RU1,CHP1, cursorZ cursorZ,0,writeN1, cursorZ,9,writeFIO1, cursorZ,24,writeNZ1, cursorZ,35,writeS, cursorZ,45,writeRU1, cursorZ,55,writeCHP1, cursorZ,68,write, fail. procedure3- write savenot2.dat,kuku, nl, writeБаза сохранена в файле not.dat, nl, writeНажмите любую клавишу, readchar, removewindow procedure3- write nl, writeНевозможно сохранить созданную базу, nl, writeНажмите любую клавишу, readchar, makewindow1,2,7,ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ,0,0,25,80. Процедура записи на диск sve1- writeВведите имя файла , readlnN, saveN, writeВсе в порядке, beep sve1- writeОшибка обмена, нажмите любую клавишу, readchar. sve2- saveolia.dat. sve3. Процедура чтения с диска lod1- retractall, writeВведите имя файла , readlnN, existfileN, consultN, writeВсе в порядке, beep lod1- nl, writeДанного файла нет на диске,nl, writeНажмите любую клавишу, readchar. lod2- retractall, existfileolia.dat, consultolia.dat, writeВсе в порядке, beep lod2- writeФайла olia.dat нет на диске,nl, writeнажмите любую клавишу, readchar. lod3. repeat. repeat- repeat. Выбор записи selectN- nl, write1 - известен номер записи,nl, write2 - известна Фамилия И.О. владельца,nl, write3 - известен номерной знак,nl, write4 - известна марка автомобиля ,nl, write5 - известен район учета,nl, write , readintX, selX,N. sel1,N- nl, writeВведите номер записи , readintN, svodM MN. sel1,N- N0. sel2,N- nl, writeВведите Фамилию И. О. владельца, readlnL, svodZ,L NZ. sel2,N- N0. sel3,N- nl, writeВведите номерной знак , readintF, svodZ F NZ. sel3,N- N0. sel4,N- nl, writeВведите марку автомабиля, readlnQ, svodZ Q NZ. sel4,N- N0. sel5,N- nl, writeВведите район учета, readlnW, svodZ W NZ. sel5,N- N0. sel6,N- nl, writeВведите число авто происшествий, readintC, svodZ C, NZ. sel6,N- N0.