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




Процедура рассмотреть - часть 5


                not рассм_да( Цель1, Трасса, _ ),

                not рассм_да( Цель2, Трасса, _ ),

                                    % Нет положительного ответа

                рассмотреть( Цель1, Трасса, Ответ1),

                                    % Ответ1 отрицательный

                рассмотреть( Цель2, Трасса, Ответ2).

                                    % Ответ2 отрицательный

        рассмотреть( Цель, Трасса,

                                            Цель это Ответ было сказано) :-

                ответпольз( Цель, Трасса, Ответ).        % Ответ дан пользователем

        рассм_да( Цель, Трасса, Ответ) :-

                рассмотреть( Цель, Трасса, Ответ),

                положительный( Ответ).




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