Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 27.05.2012, 04:29   #1 (permalink)
sabadash
Новичок
 
Регистрация: 27.05.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите откомпилировать программу на прологе

это программа диагностики развития ребенка, я запускаю ее в турбо прологе 2.0, но не могу откомпилировать, вроде какие-то ошибки
вот код программы

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").
sabadash вне форума   Ответить с цитированием

Старый 27.05.2012, 04:29
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Так же на форуме найдено следующее

Помогите пожалуйста решить задачу на прологе
Помогите исправить программу С#
Помогите написать программу

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:13.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.