VPF::Prolog - Форум программистов

Sevil

Дата 21.11.2011, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 21.11.2011

Репутация: нет
Всего: нет

Здравствуйте. Мне нужна ваша помощь.
Надо закомментить определенную строку. Как это сделать?
Вот код программы:

Код


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.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »