[sandysman]

Всем доброго времени суток. Столкнулся я на днях с деревьями, и никак не хочет моя головушка перестроиться под их особенности, самое простое двоичное дерево я построил, и даже вывел из него данные:

Код:

program Trees;

type
   PTernaryNode = ^TTernaryNode;
    TTernaryNode = record
    data: integer;
   cleft : PTernaryNode;
    clright : PTernaryNode;
 end;
Procedure vvodtree (n: integer; var t: PTernaryNode);
begin
if t=nil then
            begin
              new(t);
            with t^ do
             begin
              cleft:=nil;
              clright:=nil;
              data:=n;
            end;
            end
  else
  if n<=t^.data then
                      vvodtree (n, h, t^.cleft)

                   else
                       vvodtree (n, h, t^.clright);

end;

procedure vivodtree (t:PTernaryNode);
begin
if t<> nil then
              begin
                    vivodtree (t^.cleft);
                    writeln (t^.DatA:3);
                    vivodtree (t^.clright);
              end;

end;

Procedure balansirovtree (var t:PTernaryNode);
var I, k, p: integer;
begin

end;

var A: PTernaryNode;
chis: integer;
begin
 a:=nil;
 read (chis);
 while chis <> 0 do
  begin
  vvodtree (chis,a);
  read (chis);
  end;
 balansirovtree (a);
 vivodtree (a);
  end.

но узнать какая высота дерева не могу понять как, сколько я не пытался вникнуть во всех учебниках в разные методы обхода, понимание все равно по нулям. Так, что уповаю на народ, который может на пальцах объяснить как передвигаться по элементам дерева, и при этом определять какой узел родительский, какой внешний, как определить высоту правой ветки и левой. И еще такой вопрос, зная эти высоты, будет проще отредактировать дерево до сбалансированного или же все равно придется писать ОГРОМНЕЙШИЙ код который во всех примерах представлен???