Здравствуйте. Мне нужна ваша помощь.
Надо закомментить определенную строку. Как это сделать?
Вот код программы:
| Код |
domains
name=symbol.
predicates
woman(name)
man(name)
parent(name,name)
father(name,name)
mother(name,name)
grandfather(name,name)
grandmother(name,name)
brother(name,name)
sister(name,name)
uncle(name,name)
aunt(name,name)
clauses
parent(alexandr,vasya).
parent(alexandr,natasha).
parent(alexey,denis).
parent(viktor,alexandr).
parent(viktor,olga).
parent(viktor,kirill).
parent(sveta,alexey).
woman(sveta).
woman(olga).
woman(natasha).
woman(inna).
man(viktor).
man(alexandr).
man(alexey).
man(vasya).
man(denis).
man(kirill).
mother(X,Y):-parent(X,Y),woman(X).
father(X,Y):-parent(X,Y),man(X).
grandmother(X,Z):-parent(X,Y),parent(Y,Z),woman(X).
grandfather(X,Z):-parent(X,Y),parent(Y,Z),man(X).
brother(X,Y):-parent(Z,X),parent(Z,Y), man(X),X<>Y.
sister(X,Y):-parent(Z,X),parent(Z,Y), woman(X),X<>Y.
uncle(X,Y):-parent(Z,Y),brother(X,Z).
aunt(X,Y):-parent(Z,Y),sister(X,Z).
goal
mother(X1,Y1), write(X1, " to ", Y1), nl,
father(X,Y), write(X, " to ", Y), nl,
grandmother (X,Y), write(X, " to ", Y), nl,
grandfather (X,Y), write(X, " to ", Y), nl,
brother (X,Y), write(X, " to ", Y), nl,
sister (X,Y), write(X, " to ", Y), nl,
uncle (X,Y), write(X, " to ", Y), nl,
aunt(X,Y), write(X, " to ", Y), nl, fail.
|
|