Система "Посредник"
Категория реферата: Рефераты по информатике, программированию
Теги реферата: ответы по контрольной, предмет культурологии
Добавил(а) на сайт: Tihomirov.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
working(0):-
makewindow(3,27,30,"О системе...",0,0,25,80),
nl,nl,
write(" Инфоpмационно-спpавочная система"),
nl,nl,
write(" Посредник "),
nl,nl,nl,nl,
write(" Программа составлена в среде "),
nl,
write(" TURBO-PROLOG v.2.0."),
nl,nl,nl,
write(" автоp: Данченков А.В."),
nl,nl,
write(" МИРЭА, гp.ИИ-1-95 (С) 1997 г. "),
nl,
sound(5,220),
cursor(22,26),
write("Нажмите на любую клавишу"),
readchar(_),
removewindow,!.
/*Процедура вывода меню корректировки данных*/
working(1):-
makewindow(4,26,48,"Коppектировка данных",0,0,25,80),
sound(5,220),
repeat,
nl,
nl,
cursor(9,0),
write(" 1 - Изменение данных по поставщикам"),nl,
write(" 2 - Изменение данных по покупателям"),nl,
write(" 3 - Добавление данных по поставщикам"),nl,
write(" 4 - Добавление данных по покупателям"),nl,
write(" 5 - Выход в главное меню" ),nl,
write(" =>"),
readint(X),
clearwindow,
X>0,X "),
readint(I),
clearwindow,
I>0,I"),
readint(X),
clearwindow,
X>0,X"),
readint(X),
clearwindow,
X>0,X P P ok:- P makewindow(17,27,90,"ОК",6,18,8,40), P cursor(2,7), P write(" ОПЕРАЦИЯ ВЫПОЛНЕНА"),nl,nl, P write(" Нажмите на любую клавишу"), P readchar(_), P removewindow. P P P/* Процедура repeat */ P P repeat. P repeat:- repeat. P P P/* Процедура обнаружения связей по классифицирующей сети */ P P cmp_name(Proizv,Proizv). P cmp_name(Proizv,Proizv1):- P find_web(Proizv,Proizv1). P P find_web(X,Y):-sup(X,Y). P find_web(X,Y):-sup(X,Z),find_web(Z,Y). P P P /* Процедура обнаружения всех возможных контрактов */ P P all_contract:- P покупатель(N,_,Tov,Proizv,Part,Price,Srok), P поставщик(N1,_,Tov,Proizv1,Min1,Kol1,Price1,Srok1), P cmp_name(Proizv,Proizv1), P Part>=Min1,Part=Price1,Srok>=Srok1,
assertz(contract(N,N1)),
Рекомендуем скачать другие рефераты по теме: персонал реферат, реферат модель.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата