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


         

Отобразить решающее дерево



                решитьвсе( Вершины, Деревья).

        отобр( Дер) :-

                                        % Отобразить решающее дерево

                отобр( Дер, 0),  !.

                          % с отступом 0

        отобр( Верш ---> Дер, Н) :-

                                       % Отобразить решающее дерево с отступом Н

                write( Верш), write( '--->'),

                H1 is H + 7,

                отобр( Дер, H1),  !.


        отобр( и : [Д], Н) :-

                                       % Отобразить И-список решающих деревьев

        отобр( Д, Н).

        отобр( и : [Д | ДД], Н) :-

                                       % Отобразить И-список решающих деревьев

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