Посчитать количество вершин в бинарном дереве (процедура)

[goo]

Добрый день, опытные программисты и любители.

У меня такая вот проблема: нужно написать процедуру (не целую программу, а только процедуру), которая бы посчитала количество всех вершин в бинарном дереве.
Я знаю, как написать процедуру подсчета вершин на указанном уровне (если понадобится, могу код дать) в дереве, а как все вершины посчитать - затрудняюсь придумать.

Кто захочет сделать, то лучше писать через обход дерева снизу вверх. Так получится проще, чем сверху вниз.
Еще я думаю, что нужно каждый уровень в дереве принимать за нулевой и считать там просто количество вершин.

Вот процедура вычисления вершин на указанном уровне:

procedure NodeCount(top: TreePtr; level: integer; var n: integer);
begin
  if (level >= 1) and (top <> nil) then
  begin
    if (level = 1) then
      n := n + 1;
    NodeCount(top^.left, level - 1, n);
    NodeCount(top^.right, level - 1, n);
  end;
end;

Знаю, что подсчет общего количества вершин не сложнее этой и будет занимать столько же строчек, только как реализовать, подскажите, знающие люди.

[Stilet]

ИМХО:

a:=1;b:=100;cnt:=1;
while (a-b)>2 do begin
 inc(cnt,2);b:=b div 2;
end;

cnt - даст кол-во вершин.

P.S. Могу ошибаться, поскольку помню колледжовские задачки смутно

[goo]

Сообщение от Stilet

ИМХО:

a:=1;b:=100;cnt:=1;
while (a-b)>2 do begin
 inc(cnt,2);b:=b div 2;
end;

cnt - даст кол-во вершин.

P.S. Могу ошибаться, поскольку помню колледжовские задачки смутно

А можно как-то сделать через рекурсию? Да и как-то странно, не похоже это на обход дерева.