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

[B@®'o.K.]

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

М

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

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

[volvo]

var
  root: ttree;
  i: integer;

  a: array[1 .. 50] of ttree;
  p: ttree;
  top: integer;

begin
  root := nil;
  for i := 20 to 30 do
    additer(root, i);

  p := root; top := 0;
  while p <> nil do begin
    writeln(p^.data);
    inc(top);
    a[top] := p;
    p := p^.left;

    if top > 0 then begin
      p := a[top];
      dec(top);
      p := p^.right;
    end;
  end;
end.

Нерекурсивное добавление (additer) взял отсюда:
Создание бинарного дерева и обход