Текст программы

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, " vy ochen' poteete? ", 2, 3).

vopros(2, " u vas lishnij ves? ", 4, 5).

vopros(3, " vy zhenshhina i vam inogda stanovit'sja zharko i na neskol'ko minut usilivaetsja potootdelenie? ", 9, 11).

vopros(4, " Vozmozhno, ozhirenie privelo k tomu, chto dazhe obychnaja ezhednevnaja nagruzka mozhet okazat'sja chrezmernoj dlja vashego organizma i vyzyvat' chrezmernuju potlivost'? ", 26, 26).

vopros(5, " u vas nabljudaetsja odin ili bolee iz sledujushhih simptomov: neob#jasnimaja poterja vesa, slabost' ili drozh', povyshennyj appetit, pucheglazie? ", 8, 7).

vopros(6, " vas bespokojat postojannyj kashel' i/ili poterja vesa? ", 10, 9).

vopros(7, " vy poteete v osnovnom noch'ju, dazhe esli odety legko? ", 6, 3).

vopros(8, " Takie simptomy mozhet vyzvat' tireotoksikoz (povyshennaja funkcija shhitovidnoj zhelezy). Obratites' k vrachu? ", 0, 0).

vopros(9, " vam za 45? ", 12, 11).

vopros(10, " srochno obratites' k vrachu! Prichinoj jetih simptomov mozhet vyt' tuberkulez ili drugaja hronicheskaja bolezn'? ", 0, 0).

vopros(11, " u vas temperatura 38 i vyshe? ", 14, 13).

vopros(12, " prilivy (vnezapnye pristupy oshhushhenija zhary i potlivosti) odin iz naibolee harakternyh simptomov nachala menopauzy? ", 0, 0).

vopros(13, " potlivost' pojavilas' u vas posle priema alkogolja ili bol'shih doz aspirina? ", 16, 15).

vopros(14, " Potlivost' - normal'naja otvetnaja reakcija na vysokuju temperaturu? ", 44, 44).

vopros(15, " vy nosite odezhdu ili pol'zuetes' postel'nym bel'em iz nejlona ili drugih iskusstvennyh tkanej? ", 18, 19).

vopros(16, " usilennuju potlivost' mozhet vyzvat' alkogol' ili aspirin? ", 0, 0).

vopros(18, " sinteticheskie tkani chasto vyzyvajut usilennoe potootdelenie. Jeto ob#jasnjaetsja tem, chto oni ne vpityvajut vlagu i prepjatstvujut normal'nomu dyhaniju kozhi? ", 0, 0).

vopros(19, " chrezmernaja potlivost' ogranichivaetsja oblast'ju stupnej i kistej? ", 20, 21).

vopros(20, " vysokaja plotnost' raspolozhenija potovyh zhelez na kozhe i stupnej ne dolzhna byt' povodom dlja bespokojstva? ", 0, 0).

vopros(21, " vy poteete tol'ko kogda vozbuzhdeny ili vstrevozheny? ", 24, 23).

vopros(22, ". razvitie apokrinovyh potovyh zhelez vo vremja polovogo sozrevanija obychno vyzyvaet usilennuju potlivost', kotoraja osobenno vyrazhaetsja v podmyshechnoj oblasti. Jeto normal'no sostojanie", 0, 0).

vopros(23, " vy v vozraste ot 13 do 19 let? ", 22, 25).

vopros(24, " jemocional'nyj stress mozhet legko vyzvat' chrezmernuju potlivost'? ", 0, 0).

vopros(25, " Obratites' k vrachu, esli ne mozhete postavit' diagnoz po sheme? ", 0, 0).

vopros(26, " u vas izlishnij ves na protjazhenii bol'shej chasti zhizni? ", 28, 27).

vopros(27, " vy pribavili v vese, posle togo, kak brosili kurit'? ", 65, 65).

vopros(28, " Vashi roditeli byli polnymi? ", 30, 31).

vopros(29, " vy popolneli posle beremennosti i rozhdenija rebenka? ", 32, 33).

vopros(30, " predraspolozhennost' k ozhireniju neredka javljaetsja semejnoj chertoj. Jeto mozhet byt' obuslovleno nezdorovym rezhimom pitanija v detstve, libo medlennym rashodovaniem jenergii", 0, 0).

vopros(31, " prichina uvelichenija vashego vesa, verojatno, chto vy potrebljaete pishhu v bol'shem kolichestve, chem nuzhdaetes'", 0, 0).

vopros(32, " beremennost' chasto soprovozhdaetsja uvelichenie vesa, kotoroe trudno srazu ustranit' posle rozhdenija rebenka", 0, 0).

vopros(33, " vy popolneli vo vremja depressii? ", 34, 35).

vopros(34, " povyshennyj appetit vo vremja psihologicheskogo stressa - obychnoe sostojanie", 0, 0).

vopros(35, " vash ves uvelichilsja posle smeny fizicheskogo obraza zhizni na bolee spokojnyj? ", 36, 37).

vopros(36, " jenergeticheskie potrebnosti organizma var'iruetsja ot vashej obychnoj ezhednevnoj fizicheskoj nagruzki", 0, 0).

vopros(37, " zametili li vy u sebja paralel'l'no s uvelicheniem vesa dva ili bolee sledujushhih simptomov: bol'shaja chuvstvitel'snot' k prostude, lomkost' volos, suhost' kozhi, neob#jasnimaja utomljaemost'? ", 38, 39).

vopros(38, " vozmozhno jeto gipotireoz (nedostatochnost' funkcii shhitovidnoj zhelezy) - zabolevanie, naibolee chasto vstrechajushhiesja u zhenshhin srednego vozrasta. obratites' k vrachu", 0, 0).

vopros(39, " vy prinimaete kakie-nibud' lekarstva? ", 40, 41).

vopros(40, " k uvelicheniju vesa mogut privodit' nekotorye lekarstvennye preparaty, osobenno gormony", 0, 0).

vopros(41, " vam za 40? ", 42, 43).

vopros(42, " starenie chasto soprovozhdaetsja postepennym uvelicheniem vesa tela. Jeto vpolne estestvenno, poskol'ku fizicheskie nagruzki umen'shajutsja, v to vremja kak organizm vse medlenen pererabatyvaet posypajushhuju pishhu", 0, 0).

vopros(43, " prichinoj uvelichenija vesa mozhet byt' pereedanie", 0, 0).

vopros(44, " vas bespokoit kashel'? ", 46, 45).

vopros(45, " u vas sil'naja golovnaja bol'? ", 50, 53).

vopros(46, " u vas ottydshka dazhe v sostojanii pokoja i/ili vy otkashlivaete korichnevuju mokrotu? ", 48, 48).

vopros(47, " vy otkashlivaete zheltuju mokrotu i/ili tjazhelo dyshite? ", 52, 51).

vopros(48, " nemedlenno obratis' k vrachu! vozmozhno infekcionnoe zabolevanie legkih, naprimer vospalenie. Ono mozhet protekat' ves'ma tjazhelo, osobenno u pozhilyh ljudej i ljudej, s oslablennym zdorov'em", 0, 0).

vopros(49, " nemedlenno obratites' k vrachu. prichinoj mozhet byt' meningit", 0, 0).

vopros(50, " u vas nabljudaetsja odin ili bolee priznakov: bol' pri naklonenii golovy vpered, toshnota ili rvota, bojazn' jarkogo sveta, sonlivost' ili sputannoe soznanie? ", 49, 53).

vopros(51, " u vas nabljudaetsja odini ili bolee iz sledujushhih priznakov: golovnaja bol', boli v konechnostjah, nasmork, bol' v gorle? ", 54, 53).

vopros(52, " vozmozhno, u vas ostryj bronhit", 0, 0).

vopros(53, " u vas bolit gorlo? ", 0, 0).

vopros(54, " ochen' verojatno, chto u vas obshhee virusnoe zabolevanie, kak naprimer grupp", 0, 0).

vopros(55, " vy nedavno vernulis' iz strany s zharkim klimatom? ", 56, 57).

vopros(56, " srochno obratites' k vrachu, u vas mozhet byt' ochen' redkaja tropicheskaja bolezn', naprimer maljarija ili brjushnoj ti? ", 0, 0).

vopros(57, " u vas nabljudaetsja odin ili bolee priznakov: bol' v pojasnice, uchashhennoe mocheispuskanie. bol' pri mocheispuskanii? ", 58, 59).

vopros(58, " srochno obratites' k vrachu! u vas mozhet byt' ostroe infekcionnoe poredenie pochek ili mochevogo puzyrja", 0, 0).

vopros(59, " vy proveli bol'shuju chast' dnja na jarkom solnce ili v ochen' dushnom poveshenii? ", 60, 61).

vopros(60, " prebyvanie pod zharkim solncem ili v dushnom pomeshhii mozhet privesti k povysheniju tempereratury. V bol'shinstve takih sluchaev povyshennaja temperatura vozvrashhaetsja k normal'nomu", 0, 0).

vopros(61, " vy zhenshhina? ", 62, 63).

vopros(62, " u vas byli rody v poslednie dve nedeli? ", 64, 63).

vopros(63, " esli temperatura ne vozvrashhaetsja k normal'noj v techenii 48 chasov, obratites' k vrachu", 0, 0).

vopros(64, " nemedlenno obratites' k vrachu! poslerodovaja infekcija, hot' i redkoe v nashe vremja zabolevanie, mozhet posluzhit' prichinoj lihoradki posle rozhdenija rebenka! ", 0, 0).

main_menu: - MakeWindow(1, 15, 27, “ Выяснение причин чрезмерной потливости у взрослых ", 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(" No"),

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.

/*perehod na sled.vopros*/

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.

/* otvet " Da" */

Var_otvet(Z): -Cursor(Y, _), Y=8, Z=1,!.

/* otvet " No" */

var_otvet(Z): - Cursor(Y, _), Y=10, Z=2,!.

Goal

retractall(_),

main_menu,

removewindow.

4. Контрольный пример: перечень шагов при прохождении схемы и соответствующий им диагноз.

Запускаем программу

Рисунок 1 – Вопрос «Вы очень потеете?»

Выбираем «Да»

Рисунок 2 Вопрос «У вас лишний вес?»Выбираем «Нет»

Рисунок 3 Вопрос «У вас наблюдается один или более из слудующих симптомов: необъяснимая потеря веса, слабость или дрожь, повышенный аппетит, пучеглазие?» Выбираем «Да»

Рисунок 4. «Такие симптомы может вызвать тиреотоксикоз (повышенная функция щитовидной железы). Обратитесь к врачу

Заключение

В ходе курсового проектирования было разработана интеллектуальная система определения диагноза по симптомам. На основе исходных данных создан программный продукт, содержащий следующие группы симптомов: «Чрезмерная потливость», «Излишний вес», «Высокая темепература».