Инженерия знаний. Создание системы "Посредник", заключающей договоры на поставку стройматериалов — страница 8

  • Просмотров 4273
  • Скачиваний 398
  • Размер файла 113
    Кб

write(" =>"), readint(X), clearwindow, X>0,X<=4, view(X), clearwindow, X=4,!, removewindow. /* Вызов процедуры, выводящей контракты */ working(4):- retractall(_,best), retractall(_,best2), all_contract,!. /* Процедура вывода меню интерактивного режима */ working(5):- makewindow(4,26,48,"Заключение договоров в интерактивном режиме",0,0,25,80), sound(5,220), repeat, nl, nl, cursor(9,0), write(" 1 - Поиск поставщика"),nl, write(" 2 - Поиск покупателя"),nl, write(" 3 - Выход"),nl, write(" =>"), readint(X), clearwindow, X>0,X<=3, interact(X), clearwindow, X=3,!,

removewindow. /* Процедура выхода из программы */ working(6):-flag(1),retract(flag(1)),save_bd,!. working(6). working(_):- makewindow(16,74,79,"ОШИБКА ВВОДА",6,18,8,40), nl, write(" Введите число от 0 до 6,"),nl, write(" соответствующее выбранному пункту"),nl,nl,nl, write(" Нажмите на любую клавишу"), sound(20,494), sound(30,392), readchar(_), removewindow. /* Процедуры просмотра баз данных */ view(1):- makewindow(16,31,26,"Просмотp базы данных по поставщикам",0,0,25,80), write("|=================================================================|"),nl,

write("| ПОСТАВЩИКИ |"),nl, write("|=================================================================|"),nl, write("| | | | | Мин . | | | |"),nl, write("|No| Фирма | Товар |Производитель| партия | Кол-во |Цена|Д|"),nl, write("|=================================================================|"),nl, поставщик(N,Firm,Tov,Proizv,Min,Kol,Price,Srok), cursor(Z,_), cursor(Z,1),write(N), cursor(Z,3),write("¦",Firm), cursor(Z,16),write("¦",Tov), cursor(Z,36),write("¦",Proizv), cursor(Z,50),write("¦",Min), cursor(Z,59),write("¦",Kol), cursor(Z,68),write("¦",Price), cursor(Z,73),write("¦",Srok),

cursor(Z,0),write("¦"), cursor(Z,76),write("¦"), nl, fail. view(1):- write("|==================================================================|"), nl, cursor(22,26), write("Нажмите на любую клавишу"), readchar(_), removewindow. view(2):- makewindow(16,31,26,"Просмотp базы данных по покупателям",0,0,25,80), write("|=================================================================|"),nl, write("| ПОКУПАТЕЛИ |"),nl, write("|=================================================================|"),nl, write("| | | | | Требуемая | | |"),nl, write("|No| Фирма | Товар |Производитель| партия

|Цена |Д|"),nl, write("|=================================================================|"),nl, покупатель(N,Firm,Tov,Proizv,Part,Price,Srok), cursor(Z,_), cursor(Z,1),write(N), cursor(Z,4),write("¦",Firm), cursor(Z,20),write("¦",Tov), cursor(Z,42),write("¦",Proizv), cursor(Z,57),write("¦",Part), cursor(Z,67),write("¦",Price), cursor(Z,72),write("¦",Srok), cursor(Z,0),write("¦"), cursor(Z,76),write("¦"), nl, fail. view(2):- write("|==================================================================|"), nl, cursor(22,26), write("Нажмите на любую клавишу"), readchar(_), removewindow. view(3):-

makewindow(16,31,26,"Просмотp связей в классифицирующей сети",0,0,25,80), nl,nl, view_sup("производитель"), cursor(21,26), write(" Просмотр закончен "),nl, cursor(22,26), write("Нажмите на любую клавишу"), readchar(_), removewindow,!. view(_). /* Процедуры коррекции данных в базах данных */ correct(1):- makewindow(4,26,48,"Изменение данных о поставщках",0,0,25,80), nl, write(" Введите порядковый номер поставщика : "),readint(X),nl, поставщик(X,Firm,Tov,Proizv,Min,Kol,Price,Srok), clearwindow,nl, write(" Порядковый