Работа с деревьями и строками

[Михаил_1987]

Помогите!!!

Задача: в указанном ярусе дерева добавить вершину с указанной меткой.

Задачу нужно написать на Turbo Prolog 2.0.

[Михаил_1987]

Сообщение от Михаил_1987

Помогите!!!

Задача: в указанном ярусе дерева добавить вершину с указанной меткой.

Задачу нужно написать на Turbo Prolog 2.0.

Узнал, нужно сделать:

1. Прописать еще один новый предикат "добавление элемента к дереву".
2. Добавить к нему рекурсию с числом итераций равному номеру яруса, то есть типа %(дерево, метка, ярус)%.
3. Поставить счетчик чтобы рекурсия прекращалась, когда счетчик станет равным Н.

Помогите теперь это дописать в программе... пожалуйста

***
DOMAINS
tree=tr(integer,tree,tree);e

PREDICATES
der(integer,integer,tree,tree) %(ярус,метка,исходное_дерево,резуль тат)%

CLAUSES
der(1,M,T,tr(M,T,e)):-!.
der(I,M,tr(X,L,R),
tr(X,D,R)):-
J=I-1,
der(J,M,L,D),!.
der(I,M,tr(X,L,R),tr(X,L,D)):-
J=I-1,
der(J,M,R,D).
***