Высвобождение памяти занимаемой деревом. Опции

[GrukhvinEV]

Есть код построения и поиска максимального значения элемента дерева, как удалить дерево для высвобождения памяти ? Написал процедуру удаления, не работает, что не верно ?

Program Lab_6;
uses crt;
type
 TTree=^Tnode;
 Tnode=record
 inf:integer;
 left,right:TTree;
 end;
procedure Search_Max(var T:TTree;var elem:integer);
 begin
  if T<>nil
   then
    begin
     if T^.inf>elem
      then
       elem:=T^.inf;
       Search_Max(T^.right,elem);
       Search_Max(T^.left,elem);
    end;
 end;
procedure RandomFillTree(var node:TTree; var nodes:integer);
var
 left,right:integer;
begin
 if nodes=0
  then
   exit;
 left:=random(nodes);
 right:=nodes-left-1;
 new(node);
 node^.inf:=random(1000);
 writeln(' nodes:', nodes,' left:', left,' right:', right,' inf:', node^.inf);
 node^.left:=nil;
 node^.right:=nil;
 RandomFillTree(node^.left, left);
 RandomFillTree(node^.right, right);
 end;
 procedure DelTree(var T:TTree; const M:TTree);
 begin
       if (T^.left=nil) and (T^.right=nil)
       then  begin
                  dispose(T);
                  T:=M;
                  if T<>nil then
                  DelTree(T,M);
             end
       else begin if T^.left<>nil then DelTree(T^.left,M);
                  if T^.right<>nil then DelTree(T^.right,M);
            end;
 end;
var
 T:TTree;
 Max,total_nodes:integer;
begin
 clrscr;
 writeln('Введите количество элементов дерева:');
 readln(total_nodes);
 RandomFillTree(T, total_nodes);
 Search_Max(T, Max);
 writeln;
 writeln('Max= ', max);
 writeln(T^.inf);
 DelTree(T,T);
 readln;
end.

[IUnknown]

Написал процедуру удаления, не работает

То есть, вот это уже слишком просто?

procedure DelTree(var T:TTree);
begin
   if T <> nil then
   begin
      DelTree(T^.right);
      DelTree(T^.left);

      Dispose(T);
   end;
end;

Надо сделать как можно сложнее, "чтоб никто не догадался" (С), как оно работает?

[GrukhvinEV]

Ой спасибо! Да я начинающий )))) Сидел вчера весь вечер велосипед изобретал ))))))) А еще вопрос а как проверить удалил ли я все динамические элементы или нет ? Не конкретно в этой программе а вообще.

[IUnknown]

Вообще - использовать нормальный компилятор:

FPC 2.6.0 с ключом -gh выдает:

Неправильно реализованное удаление (Показать/Скрыть)

Введите количество элементов дерева:
6
 nodes:6 left:3 right:2 inf:592
 nodes:3 left:2 right:0 inf:844
 nodes:2 left:1 right:0 inf:857
 nodes:1 left:0 right:0 inf:847
 nodes:2 left:0 right:1 inf:623
 nodes:1 left:0 right:0 inf:384

Max= 857
592

Heap dump by heaptrc unit
6 memory blocks allocated : 72/96
2 memory blocks freed     : 24/32
4 unfreed memory blocks : 48
True heap size : 131072 (96 used in System startup)
True free heap : 130592
Should be : 130656
Call trace for block $0006D768 size 12
  $00401658  RANDOMFILLTREE,  line 36 of f:/programs/pascal/tr.pp
  $0040173B  main,  line 75 of f:/programs/pascal/tr.pp
  $00408E41
  $4D4F485C
  $34362D45
  $42464538
  $36333945
  $4D554E00
Call trace for block $0006D6A8 size 12
  $0040164B  RANDOMFILLTREE,  line 35 of f:/programs/pascal/tr.pp
  $0040164B  RANDOMFILLTREE,  line 35 of f:/programs/pascal/tr.pp
  $0040173B  main,  line 75 of f:/programs/pascal/tr.pp
  $00408E41
  $72505C3A
  $6172676F
  $6946206D
  $5C73656C
Call trace for block $0006D648 size 12
  $0040164B  RANDOMFILLTREE,  line 35 of f:/programs/pascal/tr.pp
  $0040173B  main,  line 75 of f:/programs/pascal/tr.pp
  $00408E41
  $6C694620
  $435C7365
  $4765646F
  $5C726165
  $20444152
Call trace for block $0006D5E8 size 12
  $0040173B  main,  line 75 of f:/programs/pascal/tr.pp
  $00408E41
  $74746553
  $73676E69
  $6C6C415C
  $65735520
  $41007372
  $41445050

Как видишь, удалено не всё. Это не твой вариант, твой вообще вылетает.

Правильное удаление (Показать/Скрыть)

Введите количество элементов дерева:
6
 nodes:6 left:3 right:2 inf:592
 nodes:3 left:2 right:0 inf:844
 nodes:2 left:1 right:0 inf:857
 nodes:1 left:0 right:0 inf:847
 nodes:2 left:0 right:1 inf:623
 nodes:1 left:0 right:0 inf:384

Max= 857
592

Heap dump by heaptrc unit
6 memory blocks allocated : 72/96
6 memory blocks freed     : 72/96
0 unfreed memory blocks : 0
True heap size : 131072 (96 used in System startup)
True free heap : 130976

Вот теперь все нормально. "Неосвобожденных блоков памяти" осталось 0.

[GrukhvinEV]

Спасибо! Щас буду разбираться!