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




Процедура ответпольз - часть 3


Если утверждение Цель

истинно, то пользователь укажет также значения содержащихся в нем переменных (если таковые имеются).

Все вышеизложенное можно запрограммировать (в качестве первой попытки) следующим образом:

        остветпольз( Цель, Трасса, Ответ) :-

                можно_спросить( Цель),            % Можно ли спрашивать

                спросить( Цель, Трасса, Ответ).

                            % Задать вопрос относительно утверждения Цель

        спросить( Цель, Трасса, Ответ) :-

                показать( Цель),

                            % Показать пользователю вопрос

                принять(Ответ1),

                       % Прочесть ответ

                обработать( Ответ1, Цель, Трасса, Ответ).

                            % Обработать ответ

        обработать( почему, Цель, Трасса, Ответ) :-

                            % Задан вопрос "почему"



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