Предыдущая страница реферата | 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 | Следующая страница реферата