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




Усовершенствование процедуры ответпольз - часть 8


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

        спросить( Цель, Вопрос, Перем, Трасса, Ответ, N) :-
                nl,
                ( Перем = [ ],  !,
                      % Сформулировать вопрос
                write( 'Это правда: ');
                write( 'Есть (еще) решения для :' )),
                write( Вопрос), write( '?'),
                принять( Ответ1),  !,
             % Ответ1 - да/нет/почему
                обработать( Ответ1, Цель, Вопрос, Перем,
                                                                                Трасса, Ответ, N).

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



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