Если текущее форсированное дерево пусто,

                read( Ход),

                ( разрход( Поз, Ход, Поз1),

                        поддер( ФДер, Ход, ФДер1),  !;

                                    

     % Вниз по форс. дереву

                  write( 'Неразрешенный ход'), nl,

                        сделать_ход( Поз, ФДер, Поз1, ФДер1) ).

% Если текущее форсированное дерево пусто, построить новое

        сделать_ход( Поз, nil, Поз1, ФДер1) :-

                чей_ход( Поз, б),

                восст_глуб( Поз, Поз0),

                                        % Поз0 = Поз с глубиной 0

                стратегия( Поз0, ФДер),  !,

                                        % Новое форсированное дерево

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

---

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

---

---

---