Описание слайда:
Система пользовательского интерфейса run :- assertz(xpositive(' ',' ')), assertz(xnegative(' ',' ')), nl,write(' * * * * * * * * * * * * * * * * * * * * * '), nl,write(' ДОБРО ПОЖАЛОВАТЬ! '), nl,write(' Проводится идентификация породы '), nl,write(' Отвечайте, пожалуйста, yes или no '), nl,write(' а вопросы о собаке, породу которой '), nl,write(' Вы хотите определить '), nl,write(' * * * * * * * * * * * * * * * * * * * * * * '), expertiza. expertiza :- dog_is(X), !, nl, write('Вероятно Ваша собака – '), write(X), write('.'), nl,clear_facts. expertiza :- nl, write('Извините, я не смогу помочь Вам!'), clear_facts. vopros(X, Y):-write('вопрос – '),write(X),write(' '), write(Y),write('? (да/нет)'),read(R),remember(X,Y,