50327 (Разработка программы в помощь медикам в постановке диагноза), страница 2
Описание файла
Документ из архива "Разработка программы в помощь медикам в постановке диагноза", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50327"
Текст 2 страницы из документа "50327"
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):-
write(" Doctor> U vas est' ",Y," ? "),
readln(Reply),
remember(X,Y,Reply).
positive(X,Y):-
xpositive(X,Y),!.
positive(X,Y):-
not(negative(X,Y)),!,
ask(X,Y).
negative(X,Y):-
xnegative(X,Y),!.
remember(X,Y,yes):-
asserta(xpositive(X,Y)).
remember(X,Y,no):-
asserta(xnegative(X,Y)),
fail.
clear_facts:-
retract(xpositive(_,_)),
fail.
clear_facts:-
retract(xnegative(_,_)),
fail.
elem_is("Gripp (Antigrippin)"):-
positive(elem,"golovnaya bol"),
positive(elem,"kashel"),
positive(elem,"nasmork"),
positive(elem,"slabost"),
positive(elem,"visokaya temperatura"),!.
elem_is("ORVI (Fervex)"):-
positive(elem,"kashel"),
positive(elem,"nasmork"),
positive(elem,"slabost"),
positive(elem,"bol v gorle"),!.
elem_is("Migren (Migrenol)"):-
positive(elem,"golovnaya bol"),
positive(elem,"slabost"),
positive(elem,"toshnota"),!.
elem_is("Gipovitaminoz (Duovit)"):-
positive(elem,"golovnaya bol"),
positive(elem,"slabost"),
positive(elem,"plohoi son"),!.
elem_is("Gastrit (Gastrofarm)"):-
positive(elem,"slabost"),
positive(elem,"toshnota"),
positive(elem,"izghoga"),!.
elem_is("Bessonica (Novo-Passit)"):-
positive(elem,"slabost"),
positive(elem,"plohoi son"),
positive(elem,"razdrazhimost'"),!.
elem_is("Laringit (Antibiotiki)"):-
positive(elem,"kashel"),
positive(elem,"bol v gorle"),
positive(elem,"ohriplost'"),!.
elem_is("Faringit (Antibiotiki)"):-
positive(elem,"slabost"),
positive(elem,"kashel"),
positive(elem,"bol v gorle"),!.
elem_is("Faringit (Antibiotiki)"):-
positive(elem,"visokaya temperatura"),
positive(elem,"kashel"),
positive(elem,"bol v gorle"),!.
elem_is("Jazva zheludka (Antibiotiki)"):-
positive(elem,"slabost"),
positive(elem,"toshnota"),
positive(elem,"izghoga"),
positive(elem,"pohudanie"),!.
Приложение 2. Результат работы экспертной системы