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

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

База будет создана по марке а.машины"),nl, write("4 - Выход в основное меню"),nl, write("==>"), readint(O), O>0,O<5, procedure(O), removewindow. process(_). /*Процедура создания новой базы данных и ее сохранения*/ procedure(1):- makewindow(1,2,7,"Создание новой базы по Ф.И.О. владельца а.машины",0,0,25,80), nl, cursor(7,10), retractall(_,svod1), nl, write("Если вы хотите узнать данные о а.машине , то"), nl, write("Введите Ф.И.О. владельца а.машины:"), readln(X), svod(N,FIO,NZ,MA,RU,CHP), S=FIO, S=X,

N1=N,NZ1=NZ,MA1=MA,RU1=RU,CHP1=CHP, assert(svod1(N1,S,NZ1,MA1,RU1,CHP1)), fail. procedure(1):- write("-------------------------------------------------------------------"),nl, write(" КАРТОТЕКА ГАИ "),nl, write("-------------------------------------------------------------------"),nl, write("!поряд.! Фамилия !номерной! марка ! район ! число авто.!"),nl, write("!номер ! И.О. владельца ! знак ! а.машины! учета !происшествий!"),nl, write("-------------------------------------------------------------------"),nl, svod1(N1,S,NZ1,MA1,RU1,CHP1), cursor(Z,_), cursor(Z,0),write(N1), cursor(Z,9),write(S), cursor(Z,24),write(NZ1),

cursor(Z,35),write(MA1), cursor(Z,45),write(RU1), cursor(Z,55),write(CHP1), cursor(Z,68),write("!"), fail. procedure(1):- write("-------------------------------------------------------------------"), save("not.dat",svod1), nl, write("База сохранена в файле not.dat"), nl, write("Нажмите любую клавишу"), readchar(_), removewindow, !. procedure(1):- write("-------------------------------------------------------------------"), nl, write("Невозможно сохранить созданную базу"), nl, write("Нажмите любую клавишу"), readchar(_), makewindow(1,2,7,"ККАРТОТЕКА ГАИ",0,0,25,80). procedure(2):-

makewindow(1,2,7,"Создание новой базы по номерному знаку а.машины",0,0,25,80), nl, cursor(7,10), retractall(_,lolo), nl, write("Если вы хотите узнать данные о владельце а.машины, то"),nl, write("Введите номерной знак а.машины:"), readint(X), svod(N,FIO,NZ,MA,RU,CHP), S=NZ, S=X, N1=N,FIO1=FIO,MA1=MA,RU1=RU,CHP1=CHP, assert(lolo(N1,FIO1,S,MA1,RU1,CHP1)), fail. procedure(2):- write("-------------------------------------------------------------------"),nl, write(" КАРТОТЕКА ГАИ "),nl, write("-------------------------------------------------------------------"),nl, write("!поряд.! Фамилия

!номерной! марка ! район ! число авто.!"),nl, write("!номер ! И.О. владельца ! знак !атомобиля! учета !происшествий!"),nl, write("-------------------------------------------------------------------"),nl, lolo(N1,FIO1,S,MA1,RU1,CHP1), cursor(Z,_), cursor(Z,0),write(N1), cursor(Z,9),write(FIO1), cursor(Z,24),write(S), cursor(Z,35),write(MA1), cursor(Z,45),write(RU1), cursor(Z,55),write(CHP1), cursor(Z,68),write("!"), fail. procedure(2):- write("-----------------------------------------------------------------------------"), save("not1.dat",lolo), nl, write("База сохранена в файле not1.dat"), nl, write("Нажмите

любую клавишу"), readchar(_), removewindow, !. procedure(2):- write("-------------------------------------------------------------------"), nl, write("Невозможно сохранить созданную базу"), nl, write("Нажмите любую клавишу"), readchar(_), makewindow(1,2,7,"КАРТОТЕКА ГАИ",0,0,25,80). procedure(3):- makewindow(1,2,7,"Создание базы данных по марке автомобиля",0,0,25,80), nl, cursor(7,10), retractall(_,kuku), nl, write("Если вы хотите узнать данные о номерах автомобиля, то"), nl, write("Введите марку автомобиля:"), readln(X),