![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Текст программы ⇐ ПредыдущаяСтр 3 из 3
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 Вопрос «У вас лишний вес?»Выбираем «Нет»
Заключение В ходе курсового проектирования было разработана интеллектуальная система определения диагноза по симптомам. На основе исходных данных создан программный продукт, содержащий следующие группы симптомов: «Чрезмерная потливость», «Излишний вес», «Высокая темепература».
|