Написать программу, которая создает бинарное дерево - PascalABC.NET - Ответ 7020479

const
  N = 100;
  minN = -99;
  maxN = +99;
 
type
  tTree = ^rTree;
  rTree = record
    N : Integer;
    Left, Right : tTree;
  end;
 
procedure CatchOn(N : Integer) : tTree;
var
  Tmp : tTree;
begin
  New(Tmp);
  Tmp^.N;
  Tmp^.Left := nil;
  Tmp^.Right := nil;
end;
 
procedure AddTree(Cur : tTree; N : Integer);
begin
  if N < Cur^.N then
    if Cur^.Left = nil then
      Cur^.Left := CatchOn(N)
    else
      AddTree(Cur^.Left, N)
  else
    if Cur^.Right = nil then
      Cur^.Right := CatchOn(N)
    else
      AddTree(Cur^.Right, N);
end;
 
var
  Root : tTree;
  
begin
  Randomize;
 
  Root := CatchOn(Random(minN, maxN));
 
  for var i := 2 to N do
    AddTree(Root, Random(minN, maxN));
end.

const
  N = 100;
  minN = -99;
  maxN = +99;
 
type
  tTree = ^rTree;
  rTree = record
    N : Integer;
    Left, Right : tTree;
  end;
 
function CatchOn(N : Integer) : tTree;
begin
  WriteLn('Добавление в дерево: ', N);
  New(Result);
  Result^.N := N;
  Result^.Left := nil;
  Result^.Right := nil;
end;
 
procedure AddTree(Cur : tTree; N : Integer);
begin
  if N < Cur^.N then
    if Cur^.Left = nil then
      Cur^.Left := CatchOn(N)
    else
      AddTree(Cur^.Left, N)
  else
    if Cur^.Right = nil then
      Cur^.Right := CatchOn(N)
    else
      AddTree(Cur^.Right, N);
end;
 
var
  Root : tTree;
  
begin
  Randomize;
 
  Root := CatchOn(Random(minN, maxN));
 
  for var i := 2 to N do
    AddTree(Root, Random(minN, maxN));
end.