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

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

номер поставщика : "),write(X),nl, write(" Фирма : "),write(Firm),nl, write(" Товар : "),write(Tov),nl, write(" Производитель : "),write(Proizv),nl, write(" Минимальная партия : "),write(Min),nl, write(" Колличество на складе : "),write(Kol),nl, write(" Цена за единицу товара : "),write(Price),nl, write(" Сроки поставки : "),write(Srok),nl, nl,nl,nl, write(" Введите название фирмы : "),readln(Firm1), write(" Введите название товара : "),readln(Tov1), write(" Введите производителя : "),readln(Proizv1),

write(" Введите минимальную партию : "),readInt(Min1), write(" Введите колличество на складе : "),readInt(Kol1), write(" Введите цену за единицу товара : "),readreal(Price1), write(" Введите сроки поставки : "),readInt(Srok1),nl, X1=X, retract(поставщик(X,Firm,Tov,Proizv,Min,Kol,Price,Srok)), assertz(поставщик(X1,Firm1,Tov1,Proizv1,Min1,Kol1,Price1,Srok1)), !, ins_sup(Proizv1), assert(flag(1)), removewindow. correct(2):- makewindow(4,26,48,"Изменение данных о покупателях",0,0,25,80), nl, write(" Введите порядковый номер покупателя : "),readint(X),nl,

покупатель(X,Firm,Tov,Proizv,Part,Price,Srok), clearwindow,nl, write(" Порядковый номер покупателя : "),write(X),nl, write(" Фирма : "),write(Firm),nl, write(" Товар : "),write(Tov),nl, write(" Производитель : "),write(Proizv),nl, write(" Необходимая партия : "),write(Part),nl, write(" Цена за единицу товара : "),write(Price),nl, write(" Сроки поставки : "),write(Srok),nl, nl,nl,nl, write(" Введите название фирмы : "),readln(Firm1), write(" Введите название товара : "),readln(Tov1), write(" Введите производителя :

"),readln(Proizv1), write(" Введите необходимую партию : "),readInt(Part1), write(" Введите цену за единицу товара : "),readreal(Price1), write(" Введите сроки поставки : "),readInt(Srok1),nl, X1=X, retract(покупатель(X,Firm,Tov,Proizv,Part,Price,Srok)), assertz(покупатель(X1,Firm1,Tov1,Proizv1,Part1,Price1,Srok1)), ins_sup(Proizv1), !, assert(flag(1)), removewindow. correct(3):- makewindow(9,26,48,"Добавление данных о поставщиках",0,0,25,80), repeat, nl, write(" Введите порядковый номер поставщика : "),readint(K),nl, write(" Введите название фирмы :

"),readln(F), write(" Введите название товара : "),readln(T), write(" Введите производителя : "),readln(P), write(" Введите минимальную партию : "),readInt(M), write(" Введите колличество на складе : "),readInt(Kl), write(" Введите цену за единицу товара : "),readreal(Pr), write(" Введите сроки поставки : "),readInt(S),nl, N1=K, Firm=F,Tov=T,Proizv=P, Min=M,Kol=Kl, Price=Pr,Srok=S, assertz(поставщик(N1,Firm,Tov,Proizv,Min,Kol,Price,Srok)), ins_sup(Proizv), ask,!, assert(flag(1)), removewindow. correct(4):- makewindow(9,26,48,"Добавление данных о

покупателях",0,0,25,80), repeat, nl, write(" Введите порядковый номер покупателя : "),readint(K),nl, write(" Введите название фирмы : "),readln(F), write(" Введите название товара : "),readln(T), write(" Введите производителя : "),readln(P), write(" Введите необходимую партию : "),readInt(M), write(" Введите цену за единицу товара : "),readreal(Pr), write(" Введите сроки поставки : "),readInt(S),nl, N1=K, Firm=F,Tov=T,Proizv=P, Part=M, Price=Pr,Srok=S, assertz(покупатель(N1,Firm,Tov,Proizv,Part,Price,Srok)), ins_sup(Proizv),