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


         

Не было положительного



                                                           % Не было положительного решения?

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

                отрицательный( Ответ),

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

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

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

                Ответ1 = нет.


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

        статус( отрицательный) :-

                assert( пока_нет_положительного_решения).


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

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


        принять_вопрос( Вопрос) :-

                nl, write( 'Пожалуйста, спрашивайте:'), nl,

                read( Вопрос).



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