Разработка информационно-справочной системы "Картотека ГАИ" Prolog — страница 2

  • Просмотров 3110
  • Скачиваний 489
  • Размер файла 6
    Кб

район учета :"),readln(G),nl, write("Введите число автотранспортных"),nl, write(" происшествий:"),readint(K),nl, FIO1=F,NZ1=Y,MA1=J,RU1=G,CHP1=K, assertz(svod(N1,FIO1,NZ1,MA1,RU1,CHP1)), removewindow, fail. /*Пpоцедуpа вывода данных о пpогpамме*/ process(0):- makewindow(1,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. /*Процедура изменения содержимого записей базы данных*/ process(1):- makewindow(1,2,7,"Коppекция данных",0,0,25,80), nl, select(N), X=N, svod(X,FIO,NZ,MA,RU,CHP), write("Номер записи :"),write(N),nl, write("Фамилия.И.О. :"),write(FIO),nl, write("Номерной знак :"),write(NZ),nl, write("Марка автомабиля :"),write(MA),nl, write("Район учета :"),write(RU),nl, write("Число автотранспортных"),nl, write(" происшествий:"),write(CHP),nl, nl, write("Введите Фамилию.И.О.

:"),readln(FIO1),nl, write("Введите номерной знак :"),readint(NZ1),nl, write("Введите марку автомабиля :"),readln(MA1),nl, write("Введите район учета :"),readln(RU1),nl, write("Введите число автотранспортных"),nl, write(" происшествий:"),readint(CHP1),nl, X1=X, retract(svod(X,FIO,NZ,MA,RU,CHP)), assert(svod(X1,FIO1,NZ1,MA1,RU1,CHP1)), !, removewindow. /*Процедура просмотра содержимого базы данных*/ process(2):- makewindow(1,2,7,"Просмотp базы",0,0,25,80), nl, write("--------------------------------------------------------------------"),nl, write("

КАРТОТЕКА ГАИ "),nl, write("--------------------------------------------------------------------"),nl, write("!поряд.! фамилия ! номерной ! марка ! район ! число авто !"),nl, write("!номер ! И.О.владельца! знак ! а.машины! учета ! происшествий!"),nl, write("--------------------------------------------------------------------"),nl, svod(N,FIO,NZ,MA,RU,CHP), cursor(Z,_), cursor(Z,0),write(N), cursor(Z,9),write(FIO), cursor(Z,24),write(NZ), cursor(Z,35),write(MA), cursor(Z,45),write(RU), cursor(Z,55),write(CHP), cursor(Z,68),write("!"), nl, fail. process(2):-

write("-------------------------------------------------------------------"), nl, write("Нажмите на любую клавишу"), readchar(_), removewindow. /*Процедура загрузки в память базы данных*/ process(3):- nl, makewindow(2,15,4,"Загрузка",5,5,20,70), write("1 - База будет загружена из указанного файла"),nl, write("2 - База будет загружена из файла olia.dat"),nl, write("3 - Выход в основное меню"),nl, write("==>"), readint(C), C>0,C<4, lod(C), !, removewindow. /*Процедура сохранения базы данных*/ process(4):- nl,

makewindow(2,15,4,"Запись",5,5,20,70), write("1 - База будет записана в указанный файл"),nl, write("2 - База будет записана в файл olia.dat"),nl, write("3 - Выход в основное меню"),nl, write("==>"), readint(I), I>0,I<4, sve(I),!, removewindow. /*Процедура выбора создания новой базы*/ process(5):- nl, makewindow(3,2,7,"Создание новой базы",0,0,25,80), write("1 - База будет создана по Ф.И.О. владельца а.машины"),nl, write("2 - База будет создана по номерному знаку а.машины"),nl, write("3 -