Получить формат

     % Получить формат вопроса

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

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

                nl,

                ( Перем = [ ],  !,

                      % Сформулировать вопрос

                write( 'Это правда: ');

                write( 'Есть (еще) решения для :' )),

                write( Вопрос), write( '?'),

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

             % Ответ1 - да/нет/почему

                обработать( Ответ1, Цель, Вопрос, Перем,

                                                                                Трасса, Ответ, N).

        обработать( почему, Цель, Вопрос, Перем,

                                                                                Трасса, Ответ, N):-

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

---

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

---