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

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

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

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

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

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

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

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

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

                Ответ1 = нет.

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

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

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

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

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

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---