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




Процедура рассмотреть - часть 4


            Прав : если Условие то Цель,

                                    % Правило, относящееся к цели

            рассмотреть( Условие, [Цель по Прав | Трасса], Ответ),

            истинность( Ответ, ПравдаЛожь).

        рассмотреть( Цель1 и Цель2, Трасса, Ответ) :-  !,

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

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

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

                рассм_да( Цель1, Трасса, Ответ);

                                    % Положительный ответ на Цель1

                рассм_да( Цель2, Трасса, Ответ).

                                    % Положительный ответ на Цель2

        рассмотреть( Цель1 или Цель2, Трасса,

                                                                Ответ1 и Ответ2) :-  !,



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