Создайте программу обхода дерева по принципу левый – правый – корень - Turbo Pascal

Формулировка задачи:

Создайте программу обхода дерева по принципу левый – правый – корень pls)0

Код к задаче: «Создайте программу обхода дерева по принципу левый – правый – корень - Turbo Pascal»

textual
type
  TInf=integer;
  pTree=^Tree;
  Tree=record
    Inf:TInf;
    Left,Right:pTree;
  end;
procedure AddToTree(var aT:pTree;const aInf:TInf);
begin
  If aT=nil then begin
    New(aT);
    aT^.Inf:=aInf;
    aT^.Left:=nil;
    aT^.Right:=nil;
  end else if (aInf>=aT^.Inf) then AddToTree(aT^.Right,aInf)
  else AddToTree(aT^.Left,aInf);
end;
procedure PrintT(aT:pTree);
begin
  If aT=nil then exit;
  PrintT(aT^.Left);
  PrintT(aT^.Right);
  write(aT^.Inf:7);
end;
var T:pTree;
    i,n:integer;
    a:TInf;
begin
  T:=nil;
  write('Количество узлов в дереве: '); readln(n);
  randomize;
  for i := 1 to n do begin
    a:=random(51)-25;
    write(a:7);
    AddToTree(T,a);
  end;
  writeln;
  writeln('Постфиксный обход дерева:');
  PrintT(T);
  readln;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ