Help Me!, Бинарное дерево, нерекурсивный вариант Опции

[B@®'o.K.]

Народ, помогите мне, плиз. Как вывести все элементы бинарного дерева нерекурсивным методом??

М

В следующий раз делай название темы более информативным klem4

Сообщение отредактировано: klem4 - 21.11.2007 23:25

[B@®'o.K.]

Напишите плиз хотя бы код. Вот вам для помощи (я просто в этом мало понимаю):
1)Начальная установка: TOP:=0; P:=T.
2)Если P=nil, то перейти на 4. {конец ветви}
3)Вывести P^.info. Вершину заносим в стек: TOP:=TOP+1; A[TOP]:=P; шаг по левой ветви: P:=P^.llink; перейти на 2.
4)Если TOP=0, то КОНЕЦ.
5)Достаем вершину из стека: P:=A[TOP]; TOP:=TOP-1;
6)Шаг по правой связи: P:=P^.rlink; перейти на 2.

Пожалуйста!! Очень надо!!!