50327 (Разработка программы в помощь медикам в постановке диагноза), страница 2

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка программы в помощь медикам в постановке диагноза", который расположен в категории "". Всё это находится в предмете "информатика" из 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. Результат работы экспертной системы

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4123
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее