>           write("This is an illnes identification system."),nl,

           write("To start the consultation process, "),nl,

           write("please type in 'prof'. "),nl,

           readln(Mygoal),

           info(Mygoal),!.

     go(_,Mygoal) :- not(rule(_,Mygoal,_,_)),!,nl,

           write(" I think it is ",MYgoal,"."),nl,nl,

           write(" Is my diagnosis right (y/n) ?"),nl,

           readchar(Answer),

           evalans(Answer).

     /* МЕХАНИЗМ ВЫВОДА */

     go(HISTORY,Mygoal) :- rule(RNO,Mygoal,NY,COND),

           check(RNO,HISTORY,COND),

           go([RNO|HISTORY],NY).

     check(RNO,HISTORY,[BNO|REST]) :- yes(BNO),!,

           check(RNO,HISTORY,REST).

     check(_,_,[BNO|_]) :- no(BNO),!,fail.

     check(RNO,HISTORY,[BNO|REST]) :- cond(BNO,NCOND),

           fronttoken(NCOND,"not",_COND),

           frontchar(_COND,_,COND),

           cond(BNO1,COND),

           notest(BNO1),!,

           check(RNO,HISTORY,REST).

     check(_,_,[BNO|_]) :- cond(BNO,NCOND),

           fronttoken(NCOND,"not",_COND),

           frontchar(_COND,_,COND),

           cond(BNO1,COND),

           yes(BNO1),

           !,fail.

     check(RNO,HISTORY,[BNO|REST]) :- cond(BNO,TEXT),

           inpo(HISTORY,RNO,BNO,TEXT),

           check(RNO,HISTORY,REST).

           check(_,_,[]).

     notest(BNO) :- no(BNO),!.

     notest(BNO) :- not(yes(BNO)),!.

     do_answer(_,_,_,_,0) :- exit.

     do_answer(_,_,_,BNO,1) :- assert(yes(BNO)),

           shiftwindow(1),

           write(yes),nl.

     do_answer(_,_,_,BNO,2) :- assert(no(BNO)),

           write(no),nl,

           fail.

     erase :- retract(_),fail.

     erase.

     clear :- retract(yes(_)),retract(no(_)),fail,!.

     clear.

     /* СИСТЕМА ПОЛЬЗОВАТЕЛЬСКОГО ИНТЕРФЕЙСА (часть 2) */

     inpo(HISTORY,RNO,BNO,TEXT) :- write("Question :-",TEXT," ? "),

           makewindow(2,7,7,"Response",10,54,7,20),

           write("Type 1 for 'yes' ,"),nl,

           write("Type 2 for 'no' : "),nl,

           readint(RESPONSE),

           clearwindow,

           shiftwindow(1),

     do_answer(HISTORY,RNO,TEXT,BNO,RESPONSE).

     info("?") :- clearwindow,

           write("Reply from the KBS."),nl,

           listopt,

           nl,write("Please any key. "),

           readchar(_),

           clearwindow,

           show_menu.

     info(X) :- X >< "?".

     listopt :- write("The avtoes are : "),nl,nl,

           topic(Ins),

           write(" ",Ins," "),nl,

           fail.

           listopt.

     evalans('y') :- write(" I am glad I can help you !"),nl,nl,

           write(" Press the space bar."),

           readchar(_),

           clearwindow,

           show_menu.

     evalans('n') :- write(" I am sorry I can't help you !"),nl,nl,

           write(" Please press space bar ."),

           readchar(_),

           clearwindow,

           show_menu.

     /* Конец программы */

     Предикат  rule указывает название профессии. В предикате cond определяются успеваемость ученика по предметам. Предикат nl,write(" Пожалуйста посмотрите и выбирете базу. "),nl. После выбора базы пользователь или начать процесс анкетирования. Последовательность ответов пользователя фиксируется в предикатах базы данных yes и no. Правила erase и clear выполняют очистку БД. Поиск данных по образцу, заданному пользователем, осуществляется при помощи правила check. Организация диалога при помощи меню исключает возможные ошибки пользователя. Результатом диалога - консультации будет либо сообщение о рекомендуемом выборе профессии.

 

14 Заключение

     Рассмотрев  основные подходы к построению моделей  представления знаний становится очевидно, что создание интеллекта, подобного  человеческому в плане самостоятельной  обработки информации и использования знаний, пока невозможно. По крайней мере, не в чистых моделях. Логично предположить, что требуется совместить некоторые из этих моделей для получения основных качеств, свойственных человеческому разуму.

     Но  даже в случае создания подобного интеллекта останется еще несколько качеств, которые практически невозможно запрограммировать – такие как неординарность мышления и способность к творчеству, умение строить предположения и догадки, создавать теории и идеи. И, как ни странно, именно эти качества в свое время подтолкнули человечество к идее создания искусственного интеллекта. 
 

 

Список используемой литературы

1. Гаврилова Т.А., Хорошевский В.Ф. Базы знаний интеллектуальных систем  -Учебник Санкт-Петербург, 2000

2. Марселлус Д. Программирование экспертных систем на Турбо Прологе: Пер.с англ./Предисл.С.В.Трубицина. – М.: Финансы и статистика, 1994.-256с.

3. http://ru.wikipedia.org/wiki/%D0%97%D0%BD%D0%B0%D0%BD%D0%B8%D0%B5

4. http://www.gks.ru/free_doc/new_site/population/urov/urov_12kv.htm