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



write(" Введите имеющуюся партию : "),readInt(I),

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

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

N=0,

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

Kol=I,

Price=Pr,Srok=S,

assertz(поставщик(N,Firm,Tov,Proizv,Min,Kol,Price,Srok)),

removewindow,

покупатель(N1,_,Tov,Proizv1,Part1,Price1,Srok1),

cmp_name(Proizv1,Proizv),

Part1>=Min,Part1=Price,Srok1>=Srok,

assert(flag(2)),

assertz(contract(N1,N)),

assert(best(N1,0,0,0)),

fail.

 

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

retract(поставщик(0,Firm,Tov,Proizv,Min,Kol,Price,Srok)),

retract(flag(2)),!.

interact(2):-

warning(N),

поставщик(0,Firm,Tov,Proizv,Min,Kol,Price,Srok),

assertz(поставщик(N,Firm,Tov,Proizv,Min,Kol,Price,Srok)),

ins_sup(Proizv),

retract(поставщик(0,Firm,Tov,Proizv,Min,Kol,Price,Srok)),

assert(flag(1)),

!.

interact(2):- retract(поставщик(0,Firm,Tov,Proizv,Min,Kol,Price,Srok)),!.

interact(_).

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

warning(N):-makewindow(7,49,113,"Предупреждение",5,10,12,60),

sound(5,220),nl,nl,

write(" На данный момент заключение контракта невозможно"),nl,

write(" Поместить данные в базу данных"),nl,

write(" для последующей обработки?"),nl,nl,

write(" [Д]а/[Н]ет"),nl,

readchar(Ch),

removewindow,

Ch='Д',

write(" Введите порядковый номер фирмы : "),readInt(N),nl,

!.

/* Удаление элемента из классифицирующей сети */

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

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

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