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



         

Reаd и write - часть 4


              обработать( X).

        о6работать( стоп) :-   !.

        обработать( N) :-

              С is N * N * N,

              write( 'Куб'),  write( N),  write( 'равен').

              write( С), nl,

              куб.

Разговор с новой версией мог бы быть, например, таким:

        ?-  куб.

        Следующее число, пожалуйста: 5.

        Куб 5 равен 125

        Следующее число, пожалуйста: 12.

        Куб 12 равен 1728

        Следующее число, пожалуйста: стоп.

        yes

В некоторых реализациях для того, чтобы приглашение появилось на экране перед чтением, необходимо выдать дополнительный запрос (такой, скажем, как ttyflush) после записи.

В последующих разделах мы увидим некоторые типичные примеры операций, в которых участвуют чтение и запись.




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