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


         

Обратите внимание на то, что


Процедуру создатьфайл можно определить так:

        создатьфайл( Поставщик) :-

                write( Поставщик), write( '.'), nl,

                создатьостальное( Поставщик).


        создатьостальное( Поставщик) :-

                read( Изделие),

                обработать( Изделие, Поставщик).


        обработать( end_ot_file) :-  !.

        обработать( Изделие( Ном, Опис, Цена, Поставщик),

                                Поставщик) :-  !,

                write( Изделие( Ном, Опис, Цена) ),

                write( '.'), nl,

                создатьостальное( Поставщик).


            обработать ( _, Поставщик) :-

                создатьостальное( Поставщик).


Обратите внимание на то, что обработать

вписывает точки между термами, чтобы впоследствии файл мог быть прочитан процедурой read.


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





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