[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.

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

[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, t^.cleft)

                   else
                       vvodtree (n, t^.clright);

end;

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

end;

Function balansirovlev (t:PTernaryNode):integer;
begin
if t=nil then
              result:=0
          else result:=1+balansirovlev(t^.cleft);
end;

Function balnsirprav (t:PTernaryNode):integer;
begin
if t=nil then
              result:=0
          else result:=1+ balnsirprav(t^.clright);
end;

Function balnsir (t:PTernaryNode):integer;
begin
if t=nil then
              result:=0
          else result:=1+ balnsir(t^.clright)+balnsir(t^.cleft);
end;

var A,B: PTernaryNode;
chis: integer;
visotalev, visotaprav, ob: integer;
begin
 a:=nil;
 read (chis);
 while chis <> 0 do
  begin
  vvodtree (chis,a);
  read (chis);
  end;
  vivodtree (a);
   visotalev:=balansirovlev(a);
   writeln ();
   writeln(visotalev);
   visotaprav:=balnsirprav(a);
   writeln (visotaprav);
   ob:=balnsir (a);
   writeln (ob);
 end.

.