Система "Посредник"
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: ответы по контрольной, предмет культурологии
| Добавил(а) на сайт: Tihomirov.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
assert(best(N,0,0,0)),
assert(best2(N,0,0,1000)),
fail.
all_contract:-print_contract.
/* Процедуры вывода на экран всех возможных контрактов */
print_contract:-
makewindow(16,31,26,"Все возможные контракты",0,0,25,80),
nl,nl,
покупатель(N,Firm,_,_,_,_,_),
checkcontr(N),
prn(N,Firm),
fail.
print_contract:-
retractall(_,contract),
removewindow.
prn(N,Firm):-
cursor(1,1),
write("Для фирмы: ",Firm),
nl,
write("|=================================================================|"),nl,
write("| | | | | Мин . | | | |"),nl,
write("|No| Фирма | Товар |Производитель| партия | Кол-во |Цена|Д|"),nl,
write("|=================================================================|"),nl,
contract(N,N1),
поставщик(N1,Firm1,Tov1,Proizv1,Min1,Kol1,Price1,Srok1),
cursor(Z,_),
cursor(Z,1),write(N1),
cursor(Z,3),write("¦",Firm1),
cursor(Z,16),write("¦",Tov1),
cursor(Z,36),write("¦",Proizv1),
cursor(Z,50),write("¦",Min1),
cursor(Z,59),write("¦",Kol1),
cursor(Z,68),write("¦",Price1),
cursor(Z,73),write("¦",Srok1),
cursor(Z,0),write("¦"),
cursor(Z,76),write("¦"),
nl,
покупатель(N,_,_,_,Part,_,_),
retract(contract(N,N1)),
Cs=Part*Price1,
form_best(N,N1,Cs,Srok1),
form_best2(N),
fail.
Рекомендуем скачать другие рефераты по теме: персонал реферат, реферат модель.
Категории:
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
Главная