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

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

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

cursor(Z,9),write(FIO1), cursor(Z,24),write(NZ1), cursor(Z,35),write(S), cursor(Z,45),write(RU1), cursor(Z,55),write(CHP1), cursor(Z,68),write("!"), fail. procedure(3):- write("-------------------------------------------------------------------"), save("not2.dat",kuku), nl, write("База сохранена в файле not.dat"), nl, write("Нажмите любую клавишу"), readchar(_), removewindow, !. procedure(3):- write("-------------------------------------------------------------------"), nl, write("Невозможно сохранить созданную базу"), nl, write("Нажмите любую клавишу"), readchar(_),

makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80). /*Процедура записи на диск*/ sve(1):- write("Введите имя файла :"), readln(N), save(N), write("Все в порядке"), beep, !. sve(1):- write("Ошибка обмена, нажмите любую клавишу"), readchar(_). sve(2):- save("olia.dat"). sve(3). /*Процедура чтения с диска*/ lod(1):- retractall(_), write("Введите имя файла :"), readln(N), existfile(N), consult(N), write("Все в порядке"), beep, !. lod(1):- nl, write("Данного файла нет на диске"),nl, write("Нажмите любую

клавишу"), readchar(_). lod(2):- retractall(_), existfile("olia.dat"), consult("olia.dat"), write("Все в порядке"), beep, !. lod(2):- write("Файла olia.dat нет на диске"),nl, write("нажмите любую клавишу"), readchar(_). lod(3). repeat. repeat:- repeat. /*Выбор записи*/ select(N):- nl, write("1 - известен номер записи"),nl, write("2 - известна Фамилия И.О. владельца"),nl, write("3 - известен номерной знак"),nl, write("4 - известна марка автомобиля "),nl, write("5 - известен район учета"),nl,

write("==>"), readint(X), sel(X,N). sel(1,N):- nl, write("Введите номер записи :"), readint(N), svod(M,_,_,_,_,_), M=N. sel(1,N):- N=0. sel(2,N):- nl, write("Введите Фамилию И.О. владельца:"), readln(L), svod(Z,L,_,_,_,_), N=Z. sel(2,N):- N=0. sel(3,N):- nl, write("Введите номерной знак: "), readint(F), svod(Z,_,F,_,_,_), N=Z. sel(3,N):- N=0. sel(4,N):- nl, write("Введите марку автомабиля:"), readln(Q), svod(Z,_,_,Q,_,_), N=Z. sel(4,N):- N=0. sel(5,N):- nl, write("Введите район учета:"), readln(W), svod(Z,_,_,_,W,_), N=Z. sel(5,N):- N=0. sel(6,N):- nl, write("Введите число авто

происшествий:"), readint(C), svod(Z,_,_,_,_,C), N=Z. sel(6,N):- N=0.