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



           

Процедура ответпольз


Прежде чем перейти к написанию процедуры ответпольз, давайте рассмотрим одну полезную вспомогательную процедуру

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

В процессе диалога часто возникает ситуация, когда от пользователя ожидается ответ "да", "нет" или "почему". Процедура принять

предназначена для того, чтобы извлечь один из этих ответов, понимая его правильно и в тех случаях, когда пользователь применяет сокращения ('д' или 'н') или делает ошибки. Если ответ пользователя непонятен, то принять

просит дать другой вариант ответа.

        принять( Ответ) :-

                read( Ответ1),

                означает( Ответ1, Значение),  !,

                                                            % Ответ1 означает что-нибудь?

                Ответ = Значение;         % Да

                nl, write( 'Непонятно, попробуйте еще раз,      % Нет

                                                        пожалуйста'),   nl,

                принять( Ответ).           % Новая попытка




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