Программирование на языке Пролог для искусственного интеллекта


         

Цель это правда)



                nl, H1 is H + 4,

                отобр( Ответ, H1).


                          % Показ "предшественника"

        отобр1( Найдено, _ ) :-

                                    % Найдено = 'сказано' или 'найдено как факт'

                write( Найдено), nl.

        печответ( Цель это правда) :-  !,

                write( Цель).
            % На выходе 'это правда' опускается

        печответ( Ответ) :-

                               % Отрицательный ответ

                write( Ответ).

line();

Рис. 14. 12.  Оболочка экспертной системы:

Отображение окончательного результата и

объяснение типа "как".

        ?-  эксперт.

        Пожалуйста, спрашивайте:    % Приглашение пользователю

        X это животное и голиаф это Х.    % Вопрос пользователя

        Это правда:  голиаф имеет шерсть?

        . . .


Содержание  Назад  Вперед