Помогите пожалуйста создать Генеалогическое Древо в Turbo prolog (Кто чей мама папа брат итд.) но с условием чтобы в секции GOAL было не меньше 16 услвоий (заданий к программе).
Вот кое какие нарабокти:
| Код |
Predicates
parent(symbol,symbol)
display_grand_parent
display_male(symbol)
father(symbol,symbol)
male(symbol)
grand_parent(symbol,symbol)
Clauses
parent(ivan,maria).
parent(anna,mihai).
parent(maria,tolea).
male(kostea).
father(tolea,zina).
grand_parent(valera,senia).
display_grand_parent:-
grand_parent(X,Y),
parent(X,Z),
parent(Z,Y).
display_male(X):-
father(X,Y),
parent(X,Y),
male(X).
Goal
parent(X, Y), write(X, " esti otets u ", Y, "."), nl, fail.
%display_grand_parent,
%display_male(X).
|
|