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



              

Упражнения



Упражнения

Определите отношение

        внутри( Эдем, Дер)

для поиска элемента Элем в 2-3 справочнике Дер.

Посмотреть ответ

    Введите в программу рис. 10.6 изменения для устранения лишних возвратов (определите отношения встав2 и соединить).

line();

%  Отображение 2-3 справочников

        отобр(Д) :-                                                                                                         15
            отобр( Д, 0).                                                                                             --

        отобр( nil, _ ).                                                                                            15

        отобр( л(А), Н) :-                                                                                        --
                tab( H), write( A), nl.                                                                               13

        отобр( в2( Д1, М, Д2), Н) :-                                                                  --
                H1 is H + 5                                                                                       13
                отобр( Д2, H1),                                                                               --
                tab( H), write( --), nl,                                                                               12
                tab( H), write( M), nl,                                                                           --
                tab( H), write( --), nl,                                                                         12
                отобр( Д1, H1).                                                                                         10

        отобр( в3( Д1, M2, Д2, М3, Д3), H) :-                                                        10
                H1 is H + 5                                                                                             --
                отобр( Д3, H1),                                                                                          8
                tab( H), write( --), nl,                                                      --
                tab( H), write( M3), nl,                                                    8
                отобр( Д2, H1),                                                                --
                tab( H), write( M2), nl,                                                                               7
                tab( H), write( --), nl,                                                                           --
                отобр( Д1, H1).                                                                                      7
                                                                                                                                 --
                          
(a)                                                                                                      5
                                                                                                                           --                                                                                                                              5
                                                                                                                           --
                                                                                                                                       4
                                                                                                                                 --
                                                                                                                                 4
                                                                                                                                       3
                                                                                                                                 3
                                                                                                                                 --
                                                                                                                                        1
                                                                                                     
(б)

line();









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