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




Проект - часть 13


                write( 'Глубина='), write( Г), nl.

        печ_фиг( Клетка, Поз):-
                бк( Поз, Клетка),  !,  write( 'Б');
                бл( Поз, Клетка),  !,  write( 'Л');
                чк( Поз, Клетка),  !,  write( 'Ч');
                write( '.').

        показать_ход( Ход) :-
                nl,    write( Ход),  nl.

line();

Рис. 15. 10.  Библиотека предикатов для окончания "король и ладья против короля".




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