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

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"),