Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Predicates
vopros(Integer,String,Integer,Integer)
show_menu(Integer,integer)
select
pos(Char)
process(Integer)
var_otvet(Integer)
main_menu
step(Integer,Integer)
scr_attrib(Integer,Integer,Integer,Integer)
Clauses
vopros(1," Vash rebenok vygljadit nezdorovym?",2,7).
vopros(2," Est' li u vashego rebenka dva ili bolee iz sledujushhih simptomov: sonlivost', zatrudnennyj naklon golovy vpered, otkaz ot pit'ja, temperatura vyshe 38° S, rvota bez ponosa?",16,3).
vopros(3,"Vash rebenok starshe 10 let?",4,5).
vopros(4,"U rebenka byl nasmork na proshloj nedeli?",22,5).
vopros(5,"U rebenka temperatura vyshe 38° S ili vyshe?",24,6).
vopros(6,"U rebenka byla rvota do golovnoj boli?",23,18).
vopros(7,"Chasty li u rebenka golovnye boli?",8,13).
vopros(8," Golovnaja bol' u rebenka voznikala ezhednevno v techenie nedeli?",17,9).
vopros(9," Vash rebenok chasto stradal ot neponjatnyh bolej v zhivote v mladshem vozraste?",19,10).
vopros(10," Golovnye boli voznikajut tol'ko kak rezul'tat naprjazhenija zrenija?",20,11).
vopros(11," Golovnye boli obychno soprovozhdajutsja toshnotoj ili rvotoj i/ili vash rebenok kogda-libo zhalovalsja na narushenie zrenija do nachala bolej?",21,12).
vopros(12," Kto-nibud' iz blizkih rodstvennikov stradaet upornymi golovnymi boljami?",21,13).
vopros(13,"U vashego rebenka est' prichiny dlja nervoznosti ili bespokojstva?",15,14).
vopros(14," Sluchajnye neponjatnye golovnye boli ne strashny. Oni mogut byt' svjazany s nervnym naprjazheniem ili golodom.",0,0).
vopros(15," Golovnye boli ot nervnogo naprjazhenija mogut vyzyvat'sja, naprimer, bespokojstvom po povodu ucheby ili semejnyh problem.",0,0).
vopros(16," Nemedlenno obratites' k vrachu!Meningit ili jencefalit mogut byt' prichinoj golovnoj boli v jetom sluchae.",0,0).
vopros(17," O chastyh golovnyh boljah u rebenka sleduet soobshhit' vrachu. Jeto mozhet byt' migren', osobenno esli eju bolejut drugie chleny sem'i, no vrach dolzhen iskljuchit' vozmozhnost' togo, chto jeti boli vyzvany bolee ser'eznym zabolevaniem.",0,0).
vopros(18," Diagnoz neizvesten, obratites' k vrachu.",0,0).
vopros(19," Periodicheskim sindromom obychno nazyvajut povtornye boli jemocional'nogo proishozhdenija u detej.",0,0).
vopros(20," Narushenija zrenija inogda vyzyvajut golovnye boli pri takogo roda zanjatijah. Obratites' k vrachu.",0,0).
vopros(21," Terminom migren' oboznachajut povtorjajushhiesja sil'nye golovnye boli, kotorye mogut soprovozhdat'sja dopolnitel'nymi simptomami. Obratites' k vrachu.",0,0).
vopros(22," Sinusit byvaet sledstviem prostudy i prichinoj golovnoj boli u detej starshego vozrasta.",0,0).
vopros(23," Diagnoz neizvesten.",0,0).
vopros(24," U vashego rebenka est' syp'?",25,26).
vopros(25," U vashego rebenka syp' v vide zudjashhih pjaten ili puzyr'kov?",49,50).
vopros(26," Vash rebenok zhaluetsja na bol' v uhe i/ili terebit ego?",29,19).
vopros(27," Vash rebenok kashljaet?",28,31).
vopros(28," Rebenok dyshit s takim shumom, chto slyshno cherez vsju komnatu?",42,29).
vopros(29," Vash rebenok neobychno chasto dyshit?",41,30).
vopros(30," Vash rebenok neobychno chasto dyshit?",43,44).
vopros(31," Est' li u rebenka pripuhlost' mezhdu uhom i uglom nizhnej cheljusti?",40,32).
vopros(32," Vash rebenok vygljadit ochen' bol'nym i vy zametili u nego prisutstvujut nekotorye iz simptomov: rvota bez ponosa, razdrazhitel'nost', golovnaja bol', zatrudnennyj naklon golovy vpered?",45,33).
vopros(33," U vashego rebenka ponos?",47,34).
vopros(34," Rebenok zhaluetsja na bol' v gorle i/ili otkazyvaetsja ot tverdoj pishhi?",46,35).
vopros(35,"Otkaz Rebenok mochitsja chashhe obychnogo i/ili zhaluetsja na bol' pri mocheispuskanii?",48,36).
vopros(36,"Vash rebenok probyl na solnce neskol'ko chasov?",37,38).
vopros(37," V takih uslovijah mozhet legko vozniknut' peregrev, soprovozhdaemyj temperaturoj",0,0).
vopros(38," Esli vy ne mozhete postavit' diagnoz po sheme, obratites' k vrachu.",0,0).
vopros(39,"Rebenok Vospalenie srednego uha ? rasprostranennaja prichina povyshenija temperatury u detej, osobenno esli u rebenka nedavno byla prostuda. Obratites' k vrachu.",0,0).
vopros(40," Vozmozhna svinka, osobenno esli vash rebenok byl v kontakte s bol'nym svinkoj poslednie 3 nedeli Obratites' k vrachu.",0,0).
vopros(41,"Nemedlenno obratites' k vrachu!Vozmozhno vospalenie legkih, osobenno esli pered jetim u rebenka byla prostuda.",0,0).
vopros(42,"Do Nemedlenno vyzovite Skoruju pomoshh'! Vozmozhno suzhenie trahei.",0,0).
vopros(43," Vozmozhno, jeto kor'. Verojatnost' jetogo diagnoza povysitsja pri pojavlenii neskol'ko dnej spustja sypi krasnogo cveta, osobenno esli rebenku ne delali privivku protiv kori. Obratites' k vrachu.",0,0).
vopros(44," Obshhee virusnoe zabolevanie, takoe, kak gripp, soprovozhdaetsja kashlem i vysokoj temperaturoj.",0,0).
vopros(45," Nemedlenno obratites' k vrachu!Meningit mozhet soprovozhdat'sja takimi simptomami.",0,0).
vopros(46," Faringit i tonzillit verojatnee vsego vyzyvajut vysokuju temperaturu.",0,0).
vopros(47," Gastrojenterit ? naibolee verojatnaja prichina vozniknovenija takih simptomov, osobenno esli u vashego rebenka byla rvota.",0,0).
vopros(48," Vospalenie mochevyvodjashhih putej ? vozmozhnaja prichina vysokoj temperatury. Obratites' k vrachu.",0,0).
vopros(49," Verojatnyj diagnoz ? vetrjanaja ospa. ",0,0).
vopros(50," U vashego rebenka syp' v vide rozovyh pjaten?",51,52).
vopros(51," U vashego rebenka byla vysokaja temperatura ? vyshe 38,5oS ? v techenie neskol'kih dnej do pojavlenija sypi?",59,57).
vopros(52," U rebenka syp' v vide ploskih krasnovatyh pjaten ili pryshhej?",53,58).
vopros(53," Zamechali li vy u rebenka na proshloj nedele dva ili bolee iz sledujushhih simptomov: nasmork, kashel', pokrasnenie glaz?",54,58).
vopros(54," Poluchal li vash rebenok v techenie poslednej nedeli kakie-nibud' lekarstva?",56,55).
vopros(55," Naibolee verojatnaja prichina takih simptomov ? kor', dazhe esli rebenku sdelana privivka",0,0).
vopros(56," Nekotorye lekarstva, v chastnosti antibiotiki, mogut vyzvat' syp' u detej. Obratites' k vrachu. ",0,0).
vopros(57," Vozmozhna krasnuha. Zabolevanie obychno soprovozhdaetsja uvelicheniem shejnyh limfouzlov; pri jetom samochuvstvie rebenka ne uhudshaetsja.",0,0).
vopros(58," Esli vy ne mozhete postavit' diagnoz po sheme ? obratites' k vrachu.",0,0).
vopros(59," Vozmozhna rozeola ? virusnaja infekcija, kotoraja obychno porazhaet detej v vozraste ot 6 mesjacev do 3 let.",0,0).
main_menu:- MakeWindow(1, 15,27," Vyjasnenie prichin golovnoj boli u rebenka",2,5,22,70,1,0,"г¬L-=¦"), process(1).
show_menu(N,M):-
M=1,
ClearWindow,
vopros(N,S,H,F),
Cursor(1,3),
Write(N,". ",S),
Cursor(8,2),
Write("Da"),
Cursor(10,2),
Write("HET"),
scr_attrib(8,2,0,27),
Cursor(8,2),
select.
show_menu (N,M):-
M=0,
ClearWindow,
vopros(N,S,H,F),
Cursor(1,3),
Write(S),
select,
exit.
scr_attrib(Y,X,Inc,Attr):-
Inc><2,
A=Inc+1,
scr_attrib(Y,X,A,Attr),
B=X+Inc,
scr_attr(Y,B,Attr).
scr_attrib(Y,X,Inc,Attr):-
Inc=2,
Z=X+Inc,
scr_attr(Y,Z,Attr).
/*Вниз*/
pos(80):-
Cursor(Y,X),
Y><10,
X=2,
scr_attrib(Y,2,0,15),
A=Y+2,
scr_attrib (A,2,0,27),
Cursor(A,2), !.
pos(80):-
cursor(Y,X),
Y=10,
X=2,
scr_attrib (Y,2,0,15),
scr_attrib (8,2,0,27),
Cursor(8,2),!.
/* Вверх*/
pos(72):-
Cursor(Y,X),
Y><8,
X=2,
scr_attrib (Y,2,0,15),
A=Y-2,
scr_attrib (A,2,0,27),
Cursor(A,2), !.
pos(72):-
Cursor(Y,X),
Y=8,
X=2,
scr_attrib (Y,2,0,15),
scr_attrib (10,2,0,27),
Cursor(10,2), !.
pos('\27'):- Exit.
pos('\13').
select:- ReadChar(D), pos(D), D=13, !.
select:- select.
/*переход на след.вопрос*/
step(No,V):- var_otvet(Z),Z=1,vopros(No,L,V,P).
step(No,V):- var_otvet(Z),Z=2,vopros(No,L,P,V).
process(No):-
show_menu(No,1),
var_otvet(Z),
step(No,V),
V><0,
process(V),
Fail.
process(No):-
show_menu(No,0),
var_otvet (Z),
step(No,V),
V=0,
exit.
/*вариант ответа «Да»*/
Var_otvet(Z):-Cursor(Y,_),Y=8,Z=1,!.
/*вариант ответа «Нет»*/
var_otvet(Z):- Cursor(Y,_),Y=810,Z=2,!.
Goal
retractall(_),
main_menu,
removewindow.
vopros(Integer,String,Integer,Integer)
show_menu(Integer,integer)
select
pos(Char)
process(Integer)
var_otvet(Integer)
main_menu
step(Integer,Integer)
scr_attrib(Integer,Integer,Integer,Integer)
Clauses
vopros(1," Vash rebenok vygljadit nezdorovym?",2,7).
vopros(2," Est' li u vashego rebenka dva ili bolee iz sledujushhih simptomov: sonlivost', zatrudnennyj naklon golovy vpered, otkaz ot pit'ja, temperatura vyshe 38° S, rvota bez ponosa?",16,3).
vopros(3,"Vash rebenok starshe 10 let?",4,5).
vopros(4,"U rebenka byl nasmork na proshloj nedeli?",22,5).
vopros(5,"U rebenka temperatura vyshe 38° S ili vyshe?",24,6).
vopros(6,"U rebenka byla rvota do golovnoj boli?",23,18).
vopros(7,"Chasty li u rebenka golovnye boli?",8,13).
vopros(8," Golovnaja bol' u rebenka voznikala ezhednevno v techenie nedeli?",17,9).
vopros(9," Vash rebenok chasto stradal ot neponjatnyh bolej v zhivote v mladshem vozraste?",19,10).
vopros(10," Golovnye boli voznikajut tol'ko kak rezul'tat naprjazhenija zrenija?",20,11).
vopros(11," Golovnye boli obychno soprovozhdajutsja toshnotoj ili rvotoj i/ili vash rebenok kogda-libo zhalovalsja na narushenie zrenija do nachala bolej?",21,12).
vopros(12," Kto-nibud' iz blizkih rodstvennikov stradaet upornymi golovnymi boljami?",21,13).
vopros(13,"U vashego rebenka est' prichiny dlja nervoznosti ili bespokojstva?",15,14).
vopros(14," Sluchajnye neponjatnye golovnye boli ne strashny. Oni mogut byt' svjazany s nervnym naprjazheniem ili golodom.",0,0).
vopros(15," Golovnye boli ot nervnogo naprjazhenija mogut vyzyvat'sja, naprimer, bespokojstvom po povodu ucheby ili semejnyh problem.",0,0).
vopros(16," Nemedlenno obratites' k vrachu!Meningit ili jencefalit mogut byt' prichinoj golovnoj boli v jetom sluchae.",0,0).
vopros(17," O chastyh golovnyh boljah u rebenka sleduet soobshhit' vrachu. Jeto mozhet byt' migren', osobenno esli eju bolejut drugie chleny sem'i, no vrach dolzhen iskljuchit' vozmozhnost' togo, chto jeti boli vyzvany bolee ser'eznym zabolevaniem.",0,0).
vopros(18," Diagnoz neizvesten, obratites' k vrachu.",0,0).
vopros(19," Periodicheskim sindromom obychno nazyvajut povtornye boli jemocional'nogo proishozhdenija u detej.",0,0).
vopros(20," Narushenija zrenija inogda vyzyvajut golovnye boli pri takogo roda zanjatijah. Obratites' k vrachu.",0,0).
vopros(21," Terminom migren' oboznachajut povtorjajushhiesja sil'nye golovnye boli, kotorye mogut soprovozhdat'sja dopolnitel'nymi simptomami. Obratites' k vrachu.",0,0).
vopros(22," Sinusit byvaet sledstviem prostudy i prichinoj golovnoj boli u detej starshego vozrasta.",0,0).
vopros(23," Diagnoz neizvesten.",0,0).
vopros(24," U vashego rebenka est' syp'?",25,26).
vopros(25," U vashego rebenka syp' v vide zudjashhih pjaten ili puzyr'kov?",49,50).
vopros(26," Vash rebenok zhaluetsja na bol' v uhe i/ili terebit ego?",29,19).
vopros(27," Vash rebenok kashljaet?",28,31).
vopros(28," Rebenok dyshit s takim shumom, chto slyshno cherez vsju komnatu?",42,29).
vopros(29," Vash rebenok neobychno chasto dyshit?",41,30).
vopros(30," Vash rebenok neobychno chasto dyshit?",43,44).
vopros(31," Est' li u rebenka pripuhlost' mezhdu uhom i uglom nizhnej cheljusti?",40,32).
vopros(32," Vash rebenok vygljadit ochen' bol'nym i vy zametili u nego prisutstvujut nekotorye iz simptomov: rvota bez ponosa, razdrazhitel'nost', golovnaja bol', zatrudnennyj naklon golovy vpered?",45,33).
vopros(33," U vashego rebenka ponos?",47,34).
vopros(34," Rebenok zhaluetsja na bol' v gorle i/ili otkazyvaetsja ot tverdoj pishhi?",46,35).
vopros(35,"Otkaz Rebenok mochitsja chashhe obychnogo i/ili zhaluetsja na bol' pri mocheispuskanii?",48,36).
vopros(36,"Vash rebenok probyl na solnce neskol'ko chasov?",37,38).
vopros(37," V takih uslovijah mozhet legko vozniknut' peregrev, soprovozhdaemyj temperaturoj",0,0).
vopros(38," Esli vy ne mozhete postavit' diagnoz po sheme, obratites' k vrachu.",0,0).
vopros(39,"Rebenok Vospalenie srednego uha ? rasprostranennaja prichina povyshenija temperatury u detej, osobenno esli u rebenka nedavno byla prostuda. Obratites' k vrachu.",0,0).
vopros(40," Vozmozhna svinka, osobenno esli vash rebenok byl v kontakte s bol'nym svinkoj poslednie 3 nedeli Obratites' k vrachu.",0,0).
vopros(41,"Nemedlenno obratites' k vrachu!Vozmozhno vospalenie legkih, osobenno esli pered jetim u rebenka byla prostuda.",0,0).
vopros(42,"Do Nemedlenno vyzovite Skoruju pomoshh'! Vozmozhno suzhenie trahei.",0,0).
vopros(43," Vozmozhno, jeto kor'. Verojatnost' jetogo diagnoza povysitsja pri pojavlenii neskol'ko dnej spustja sypi krasnogo cveta, osobenno esli rebenku ne delali privivku protiv kori. Obratites' k vrachu.",0,0).
vopros(44," Obshhee virusnoe zabolevanie, takoe, kak gripp, soprovozhdaetsja kashlem i vysokoj temperaturoj.",0,0).
vopros(45," Nemedlenno obratites' k vrachu!Meningit mozhet soprovozhdat'sja takimi simptomami.",0,0).
vopros(46," Faringit i tonzillit verojatnee vsego vyzyvajut vysokuju temperaturu.",0,0).
vopros(47," Gastrojenterit ? naibolee verojatnaja prichina vozniknovenija takih simptomov, osobenno esli u vashego rebenka byla rvota.",0,0).
vopros(48," Vospalenie mochevyvodjashhih putej ? vozmozhnaja prichina vysokoj temperatury. Obratites' k vrachu.",0,0).
vopros(49," Verojatnyj diagnoz ? vetrjanaja ospa. ",0,0).
vopros(50," U vashego rebenka syp' v vide rozovyh pjaten?",51,52).
vopros(51," U vashego rebenka byla vysokaja temperatura ? vyshe 38,5oS ? v techenie neskol'kih dnej do pojavlenija sypi?",59,57).
vopros(52," U rebenka syp' v vide ploskih krasnovatyh pjaten ili pryshhej?",53,58).
vopros(53," Zamechali li vy u rebenka na proshloj nedele dva ili bolee iz sledujushhih simptomov: nasmork, kashel', pokrasnenie glaz?",54,58).
vopros(54," Poluchal li vash rebenok v techenie poslednej nedeli kakie-nibud' lekarstva?",56,55).
vopros(55," Naibolee verojatnaja prichina takih simptomov ? kor', dazhe esli rebenku sdelana privivka",0,0).
vopros(56," Nekotorye lekarstva, v chastnosti antibiotiki, mogut vyzvat' syp' u detej. Obratites' k vrachu. ",0,0).
vopros(57," Vozmozhna krasnuha. Zabolevanie obychno soprovozhdaetsja uvelicheniem shejnyh limfouzlov; pri jetom samochuvstvie rebenka ne uhudshaetsja.",0,0).
vopros(58," Esli vy ne mozhete postavit' diagnoz po sheme ? obratites' k vrachu.",0,0).
vopros(59," Vozmozhna rozeola ? virusnaja infekcija, kotoraja obychno porazhaet detej v vozraste ot 6 mesjacev do 3 let.",0,0).
main_menu:- MakeWindow(1, 15,27," Vyjasnenie prichin golovnoj boli u rebenka",2,5,22,70,1,0,"г¬L-=¦"), process(1).
show_menu(N,M):-
M=1,
ClearWindow,
vopros(N,S,H,F),
Cursor(1,3),
Write(N,". ",S),
Cursor(8,2),
Write("Da"),
Cursor(10,2),
Write("HET"),
scr_attrib(8,2,0,27),
Cursor(8,2),
select.
show_menu (N,M):-
M=0,
ClearWindow,
vopros(N,S,H,F),
Cursor(1,3),
Write(S),
select,
exit.
scr_attrib(Y,X,Inc,Attr):-
Inc><2,
A=Inc+1,
scr_attrib(Y,X,A,Attr),
B=X+Inc,
scr_attr(Y,B,Attr).
scr_attrib(Y,X,Inc,Attr):-
Inc=2,
Z=X+Inc,
scr_attr(Y,Z,Attr).
/*Вниз*/
pos(80):-
Cursor(Y,X),
Y><10,
X=2,
scr_attrib(Y,2,0,15),
A=Y+2,
scr_attrib (A,2,0,27),
Cursor(A,2), !.
pos(80):-
cursor(Y,X),
Y=10,
X=2,
scr_attrib (Y,2,0,15),
scr_attrib (8,2,0,27),
Cursor(8,2),!.
/* Вверх*/
pos(72):-
Cursor(Y,X),
Y><8,
X=2,
scr_attrib (Y,2,0,15),
A=Y-2,
scr_attrib (A,2,0,27),
Cursor(A,2), !.
pos(72):-
Cursor(Y,X),
Y=8,
X=2,
scr_attrib (Y,2,0,15),
scr_attrib (10,2,0,27),
Cursor(10,2), !.
pos('\27'):- Exit.
pos('\13').
select:- ReadChar(D), pos(D), D=13, !.
select:- select.
/*переход на след.вопрос*/
step(No,V):- var_otvet(Z),Z=1,vopros(No,L,V,P).
step(No,V):- var_otvet(Z),Z=2,vopros(No,L,P,V).
process(No):-
show_menu(No,1),
var_otvet(Z),
step(No,V),
V><0,
process(V),
Fail.
process(No):-
show_menu(No,0),
var_otvet (Z),
step(No,V),
V=0,
exit.
/*вариант ответа «Да»*/
Var_otvet(Z):-Cursor(Y,_),Y=8,Z=1,!.
/*вариант ответа «Нет»*/
var_otvet(Z):- Cursor(Y,_),Y=810,Z=2,!.
Goal
retractall(_),
main_menu,
removewindow.