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




Драйвер верхнего уровня - часть 3


                nl, H1 is H + 4,
                отобр( Ответ, H1).
                          % Показ "предшественника"

        отобр1( Найдено, _ ) :-
                                    % Найдено = 'сказано' или 'найдено как факт'
                write( Найдено), nl.

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

        печответ( Ответ) :-                                % Отрицательный ответ
                write( Ответ).

line();

Рис. 14. 12.  Оболочка экспертной системы:
Отображение окончательного результата и
объяснение типа "как".

        ?-  эксперт.

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

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

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

        . . .




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