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



         

Формирование термов - часть 3


                write( ', дата рождения'),

                write( Д), tab( 1),

                write( M), tab( 1),

                write( Г), write( ','),

                вывработу( Работа).

        вывсписчлсемьи( [ ]).

        вывсписчлсемьи( [Р | L]) :-

                вывчленсемьи( Р), nl,

                вывсписчлсемьи( L),

        вывработу( неработает) :-

                write( неработает).

        вывработу( работает Место, Оклад) ) :-

                write(' работает '), write( Место),

                write( ', оклад '), write( Оклад).

line();

Рис. 6. 3.  Программа, обеспечивающая вывод в формате, представленном на рис. 6.2.




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