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




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


                write( ', дата рождения'),
                write( Д), tab( 1),
                write( M), tab( 1),
                write( Г), write( ','),
                вывработу( Работа).

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

        вывсписчлсемьи( [Р | L]) :-
                вывчленсемьи( Р), nl,
                вывсписчлсемьи( L),
        вывработу( неработает) :-
                write( неработает).

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

line();

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




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