Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата



 

 

/* Процедуры заключения договоров в интерактивном режиме */

interact(1):-

makewindow(9,26,48,"Поиск поставщика",0,0,25,80),

nl,

write(" Введите название фирмы : "),readln(F),

write(" Введите название товара : "),readln(T),

write(" Введите производителя : "),readln(P),

write(" Введите необходимую партию : "),readInt(M),

write(" Введите цену за единицу товара : "),readreal(Pr),

write(" Введите сроки поставки : "),readInt(S),nl,

N=0,

Firm=F,Tov=T,Proizv=P,

Part=M,

Price=Pr,Srok=S,

assertz(покупатель(N,Firm,Tov,Proizv,Part,Price,Srok)),

removewindow,

поставщик(N1,_,Tov,Proizv1,Min1,Kol1,Price1,Srok1),

cmp_name(Proizv,Proizv1),

Part>=Min1,Part=Price1,Srok>=Srok1,

assert(flag(2)),

assertz(contract(N,N1)),

assert(best(N,0,0,0)),

fail.

 

interact(1):-flag(2),print_contract,

retract(покупатель(0,Firm,Tov,Proizv,Part,Price,Srok)),

retract(flag(2)),!.

interact(1):-

warning(N),

покупатель(0,Firm,Tov,Proizv,Part,Price,Srok),

assertz(покупатель(N,Firm,Tov,Proizv,Part,Price,Srok)),

ins_sup(Proizv),

retract(покупатель(0,Firm,Tov,Proizv,Part,Price,Srok)),

assert(flag(1)),

!.

interact(1):- retract(покупатель(0,Firm,Tov,Proizv,Part,Price,Srok)),!.

 

interact(2):-

makewindow(9,26,48,"Поиск покупателя",0,0,25,80),

nl,

write(" Введите название фирмы : "),readln(F),

write(" Введите название товара : "),readln(T),

write(" Введите производителя : "),readln(P),

write(" Введите минимальную партию : "),readInt(M),

Рекомендуем скачать другие рефераты по теме: персонал реферат, реферат модель.

Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки