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


         

В противном случае возврат



                рассмотреть( Вопрос, [ ], Ответ),

            % Трасса пуста

                положительный( Ответ),            % Искать положительный ответ

                статус( положительный),

                                                           % Найден положительный ответ

                выдать( Ответ), nl,

                write( 'Нужны еще решения?' ),

                принять( Ответ1),
          % Прочесть ответ пользователя

                Ответ1 = нет.

                                % В противном случае возврат к "рассмотреть"

        ответ_нет( Вопрос):-

                                % Искать отрицательный ответ на Вопрос

                retract( пока_нет_положительного_решения),  !,

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