Курсовая работа: Разработка программы в помощь медикам в постановке диагноза

write("Expertnaya systema "),nl,nl,

write(Kursovaya rabota: Pomosh' medikam v postanovke diagnoza"),nl,

nl,nl,nl,nl,nl,nl,nl,

write("vipolnil: "),nl,

write("proveril:"),nl,nl,nl,nl,nl,nl,nl,nl,

write("61-06"),nl,

write("AFCHGU"),nl,

write(""),nl,nl,

readchar(_),removewindow(1,1).

do_expert:-

makewindow(1,7,7," *** Expert's System *** ",1,3,22,71),

nl,write(" ----------------------------------------------"),

nl,write(" Postanovka diagnoza "),

nl,write(" "),

nl,write(" Please answer the qustions 'yes' or 'no'. "),

nl,write(" ----------------------------------------------"),

nl,nl,

do_consulting,nl,

readchar(_),

removewindow,

exit.

do_consulting:-

elem_is(X),!,nl,

write("Vash diagnoz: ",X,"."),nl,

clear_facts.

do_consulting:-

nl,write("Ssory,vash diagnoz ne ustanovlen !"),

clear_facts.

ask(X,Y):-