27.05.2012, 04:29 | #1 (permalink) |
Новичок
Регистрация: 27.05.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите откомпилировать программу на прологе
вот код программы domains str=string. int=integer. intlist=integer*. database - knowledgeBase rule(string,thing,int) ask(int). predicates nondeterm rule(int,str,str,intlist). nondeterm complete(int). nondeterm recognition(str). nondeterm discover(intlist). nondeterm ask(int). nondeterm menu(int,string). facts fact(int,str). fact2(int,str). clauses menu(1,"Diagnostica"); menu(2,"Dobabit fact"); menu(3,"Vihod"); rule(1,"diagnoz","menee2goda",[1]). rule(2,"diagnoz","2goda",[2]). rule(3,"diagnoz","3goda",[3]). rule(4,"diagnoz","4goda",[4]). rule(5,"diagnoz","5let",[5]). rule(6,"diagnoz","6let",[6]). rule(7,"diagnoz","7let",[7]). rule(1,"3","menee2goda","K sozhaleniju, vozrast men'she dopustimogo sistemoj!",[1]). rule(1,"2","Pozdravljaem! Rebenok horosho razvivaetsja.",[9,10,11,12]). rule(2,"2","V razvitii rebenka est' otklonenija! Obratites' obratites' k vrachu!",[]). rule(3,"3","Pozdravljaem! Rebenok horosho razvivaetsja.",[13,14,15,16,17,18,19,20]). rule(4,"3","V razvitii rebenka est' otklonenija! Obratites' obratites' k vrachu!",[]). rule(5,"4","Pozdravljaem! Rebenok horosho razvivaetsja.",[21,22,23,24,25,26]). rule(6,"4","V razvitii rebenka est' otklonenija! Obratites' obratites' k vrachu!",[]). rule(7,"5","Pozdravljaem! Rebenok horosho razvivaetsja.",[27,28,29,30,31]). rule(8,"5","V razvitii rebenka est' otklonenija! Obratites' obratites' k vrachu!",[]). rule(9,"6","Pozdravljaem! Rebenok horosho razvivaetsja.",[32,33,34,35,36,37]). rule(10,"6","V razvitii rebenka est' otklonenija! Obratites' obratites' k vrachu!",[]). rule(11,"7","Pozdravljaem! Rebenok horosho razvivaetsja.",[38,39,40]). rule(12,"7","V razvitii rebenka est' otklonenija! Obratites' obratites' k vrachu!",[]). ask(X):-fact(X,"y"),!. ask(X):-fact(X,"n"),!,fail. ask(1):-write("Vashemu rebenku ot 0 do 2 let?"),!,complete(1). ask(2):-write("Vashemu rebenku ot 2 do 3 let?"),!,complete(2). ask(3):-write("Vashemu rebenku ot 3 do 4 let?"),!,complete(3). ask(4):-write("Vashemu rebenku ot 4 do 5 let?"),!,complete(4). ask(5):-write("Vashemu rebenku ot 5 do 6 let?"),!,complete(5). ask(6):-write("Vashemu rebenku ot 6 do 7 let?"),!,complete(6). ask(7):-write("Vashemu rebenku ot 7 do 8 let?"),!,complete(7). ask(9):-write("1. Podbiraet po obrazcu predmety chetyreh osnovnyh cvetov?"),!,complete(9). ask(10):-write("2. Nachinaet upotrebljat' slozhnye predlozhenija?"),!,complete(10). ask(11):-write("3. Pereshagivaet cherez neskol'ko prepjadstvij lezhawih na polu?"),!,complete(11). ask(12):-write("4. Odevaetsja pochti samostojatel'no, s nebol'shoj pomow'ju vzroslogo?"),!,complete(12). ask(13):-write("1. Nazyvaet 4 osnovyh cveta?"),!,complete(13). ask(14):-write("2. Perestupaet cherez prepjadstvie vysotoj v 10-15 sm?"),!,complete(14). ask(15):-write("3. V rechi ispol'zuet slozhnopochinennye i slozhnosochinennye predlozhenija?"),!,complete(15). ask(16):-write("4. Chasto zadaet voprosy pochemu? kogda? zachem?"),!,complete(16). ask(17):-write("5. Projavljutsja jelementy rolevoj igry - dochki-materi, vospitatel'nica i dr.?"),!,complete(17). ask(18):-write("6. V igre ispol'zujutsja sjuzhetnye postrojki?"),!,complete(18). ask(19):-write("7. Risunki karandashem otrazhajut predmety, pri lepke zadajutsja prostye figury iz plastelina?"),!,complete(19). ask(20):-write("8. Polnost'ju sam odevaetsja, pol'zuetsja salfetkoj i nosovym platkom?"),!,complete(20). ask(21):-write("1. Dvigatel'nye umenija: svobodnye, koordinirovannye dvizhenija ruk, prygaet s vysoty i v dlinu na 15-20 sm,"), nl,write("po signalu sderzhivaet dvizhenija, ljubit lazat',umeet pravil'no derzhat' karandash, provodit gorizontal'nye i vertikal'nye linii."),!,complete(21). ask(22):-write("2. Sensornoe razvitie: znaet 6 osnovnyh cvetov, podbiraet predmety po cvetu i ottenku, znaet i podbiraet krug, kvadrat, treugol'nik,"), nl,write("umeet sopostavit' po dline, shirine, vysote, pravil'no orientiruetsja v prostranstve, uznaet na owup' predmety."),!,complete(22). ask(23):-write("3. Umstvennoe razvitie: schitaet do 5, znaet vremja goda, vremja sutok. Zadaet voprosy chto?, zachem?, pochemu?, slushaet i pereskazyvaet, "), nl,write("vydeljaet suwestvennoe zveno v skazke, nazyvaet sjuzhet kartin, rech' frazovaja, grammaticheski oformlennaja."),!,complete(23). ask(24):-write("4. Igrovaja dejatel'nost'. Pojavljajutsja sjuzhetno-rolevye igry s drugimi det'mi, prodolzhitel'nost' igry do 40 min, pojavljajutsja ljubimye igry,"), nl,write("ljubit igrat' so stroitel'nym materialom. Zanimaetsja konstruirovaniem, obygryvaet postrojku - garazh, dom."),!,complete(24). ask(25):-write("5. Povedenie. Vnimatel'no slushaet vzroslyh, nazyvaet vzroslyh po imeni, otchestvu. Sobljudaet pravila povedenija v obwestve,"), nl,write("sformirovany osnovnye gigienicheskie navyki: oprjatnost', umyvanie, myt'e ruk posle tualeta."),!,complete(25). ask(26):-write("6. Navyki: samostojatel'no odevaetsja, kushaet, pravil'no derzhit lozhku, umeet pol'zovat'sja vilkoj, samostojatel'no umyvaetsja."),!,complete(26). ask(27):-write("1. Dvigatel'nye umenija.Sformirovana pravil'naja osanka, horosho koordinirovany dvizhenija ruk i nog pri hod'be, umeet hodit' i begat' po krugu, "), nl,write("bez bojazni prygaet s vysoty. Podbrasyvaet mjach, lovit ego, horosho risuet gorizontal'nye i vertikal'nye linii."),!,complete(27). ask(28):-write("2. Sensornoe razvitie. Znaet 8 cvetov, pri risovanii ispol'zuet ne tol'ko cveta, no i ih ottenki, mozhet rasstavljat' predmety v vozrastajuwem i ubyvajuwem porjadke, "), nl,write("orientiruetsja v chastjah sobstvennogo tela."),!,complete(28). ask(29):-write("3. Umstvennoe razvitie. Schitaet do 5, formiruet obobwennye ponjatija tipa mebel', frukty i t. d. Rech' frazovaja s horoshim proiznosheniem."),!,complete(29). ask(30):-write("4. Nervnaja dejatel'nost'. Est' ljubimye igry, v igre otrazhaetsja okruzhajuwij mir."),!,complete(30). ask(31):-write("5. Povedenie. Vypolnjaet pravila povedenija. Navyki: vse umeet delat' samostojatel'no."),!,complete(31). ask(32):-write("1. Motornoe razvitie. Dvizhenija priobretajut legkost' i izjawestvo, uvlechenno prygaet s razbega v vysotu i dlinu, lovit mjach odnoj rukoj, mozhet hodit' po brusku"), nl,write("vysotoj 30 sm i shirinoj 20 sm, umeet obrawat'sja s mjachom, lovit ego, udarjaet o zemlju, chetko koordiniruet dvizhenija pal'cev pri konstruirovanii, vyrezaet nozhnicami prostye formy."),!,complete(32). ask(33):-write("2. Sensornoe razvitie. Mozhet issledovat' predmety zritel'no i osjazatel'no, mozhet nazvat' romb i oval, nazyvaet ottenki cvetov - goluboj, rozovyj, fioletovyj, seryj."),!,complete(33). ask(34):-write("3. Umstvennoe razvitie: Schitaet do 10, skladyvaet edinicy, imeet ponjatie o delenii na ravnye chasti, nazyvaet po porjadku dni nedeli, vremena goda; nazyvaet "), nl,write("sostavljajuwie obobwennyh ponjatij, delaet posledovatel'nye zakljuchenija po 2-3 kartinkam. Rech' s pravil'nym postroeniem predlozhenij."),!,complete(34). ask(35):-write("4. Igrovaja dejatel'nost': est' ljubimye igry i roli."),!,complete(35). ask(36):-write("5. Povedenie. Cledit za tem, chtoby drugie deti vypolnjali pravila povedenija."),!,complete(36). ask(37):-write("6. Navyki: vse umeet delat'. Samostojatel'no podderzhivaet chistotu v dome, svobodno pol'zuetsja nozhnicami."),!,complete(37). ask(38):-write("1. Dvigatel'nye umenija: bystro perestraivaetsja vo vremja dvizhenija, derzhit ravnenie v kolonne, sherenge, kruge. Mozhet katat'sja na lyzhah, kon'kah, samokate, 3-kolesnom velosipede. "), nl,write("2. Mozhet plavat', igrat' v badminton, tennis, horosho rabotaet s raznymi materialami - bumagoj, kartonom, tkan'ju. Vdevaet nitku v igolku, prishivaet pugovicy, mozhet pol'zovat'sja piloj i molotkom."),!,complete(38). ask(39):-write("3. Sensornoe razvitie: pravil'no nazyvaet prostye i slozhnye geometricheskie formy, pravil'no ukazyvaet na osnovnye razlichija geometricheskih form. Pri risovanii ispol'zuet ne tol'ko cveta, "), nl,write("no i ih ottenki."),!,complete(39). ask(40):-write("4. Umstvennoe razvitie. Vladeet prjamym i obratnym schetom do 10, reshaet prostejshie zadachi na slozhenie i vychitanie, differenciruet kolichestvo nezavisimo ot formy, chetko ustanavlivaet "), nl,write("prichinno-sledstvennye svjazi, vydeljaet suwestvennoe zveno. Vladeet bol'shim zapasom slov, rech' grammaticheski oformlena, znaet bukvy, chitaet slogi."),!,complete(40). recognition(X):- rule(N, X, Y, Z), discover(Z), !, write(">> Otvet: ", X, " - ", Y, " (pravilo ", N,")"), nl, recognition(Y). recognition("diagnoz"):- write("Nevernie dannue!"),nl,!. recognition(_). discover([]). discover([X|Y]):- ask(X), discover(Y),menu(S). complete(X):- nl, readln(Y), assert(fact(X, Y)), Y="y". goal retractall(_), recognition("diagnoz"). |
27.05.2012, 04:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же на форуме найдено следующее Помогите пожалуйста решить задачу на прологе Помогите исправить программу С# Помогите написать программу |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|