Попытка разыменовать нулевой указатель - Free Pascal - Ответ 4540749

program BinTree;
 
uses Tree;
 
var
  TheRoot: PNode;
 
begin
  Init(TheRoot);
  MakeRoot(TheRoot, 7);
  { Левое поддерево }
  AppendLeft(TheRoot, 4);
  AppendLeft(TheRoot^.Left, 2);
  AppendRight(TheRoot^.Left, 3);
  AppendRight(TheRoot^.Left^.Right, 1);
  AppendLeft(TheRoot^.Left^.Right^.Right, 0);
  { Правое поддерево }
  AppendRight(TheRoot, 9);
  AppendLeft(TheRoot^.Right, 10);
  AppendLeft(TheRoot^.Right^.Left, 11);
  AppendRight(TheRoot^.Right, 12);
  { Обходы дерева }
 
  { Добавление/Удаление значений }
 
  { Удаляем дерево }
  DestroyTree(TheRoot);
end.

unit Tree;
 
interface
 
type
  TInfo = integer;
  PNode = ^TNode;
  TNode = record
    Info: TInfo;
    Left, Right: PNode;
  end;
 
function Init(TheRoot: PNode): PNode;
Procedure MakeRoot(TheRoot: PNode; E: TInfo);
Procedure AppendLeft(L: PNode; E: TInfo);
Procedure AppendRight(R: PNode; E: TInfo);
Procedure DestroyTree(Root: PNode);
 
//-------------Обходы-------------//
 
Procedure PreOrder(Root: PNode);
{ Прямой }
 
Procedure PostOrder(Root: PNode);
{ Обратный }
 
Procedure ReverseOrder(Root: PNode);
{ Концевой }
 
//--------------------------------//
 
implementation
 
function Init(TheRoot:PNode): PNode;
begin
  Result :=  NiL;
end;
 
procedure MakeRoot(TheRoot: PNode; E: TInfo);
begin
  New(TheRoot);
  TheRoot^.Info := E;
  TheRoot^.Left := NiL;
  TheRoot^.Right := NiL;
end;
 
Procedure AppendLeft(L: PNode; E: TInfo);
var
  N: PNode;
begin
  New(N);
  N^.Info := E;
  N^.Left := Nil;
  N^.Right := Nil;
  L^.Left := N;
end;
 
Procedure AppendRight(R: PNode; E: TInfo);
var
  N: PNode;
begin
  New(N);
  N^.Info := E;
  N^.Left := Nil;
  N^.Right := Nil;
  R^.Right := N;
end;
 
Procedure DestroyTree(Root: PNode);
var
  L, R: PNode;
begin
  if Root = Nil then
    Exit;
  L := Root^.Left;
  R := Root^.Right;
  Dispose(Root);
  DestroyTree(L);
  DestroyTree(R);
end;
 
//-------------Обходы-------------//
 
Procedure PreOrder(Root: PNode);
{ Прямой }
begin
  if Root = Nil then
    Exit;
  Write(Root^.Info);
  PostOrder(Root^.Left);
  PostOrder(Root^.Right);
end;
 
Procedure PostOrder(Root: PNode);
{ Обратный }
begin
  if Root = Nil then
    Exit;
  PostOrder(Root^.Left);
  Write(Root^.Info);
  PostOrder(Root^.Right);
end;
 
Procedure ReverseOrder(Root: PNode);
{ Концевой }
begin
  if Root = Nil then
    Exit;
  PostOrder(Root^.Left);
  PostOrder(Root^.Right);
  Write(Root^.Info);
end;
 
//--------------------------------//
 
end.