Добрый вечер !
Есть код:
| Код |
Program Lab_6;
Uses CRT;
Type inform = word;
ss = ^zveno;
zveno = record
inf : inform;
key : integer;
left, right: ss;
end;
Var E,N,I,Rn,Result : Integer;
tr : ss;
Procedure vstavka(var p: ss; k: integer);
Begin
If p = nil then Begin
New(p);
p^.key:=k;
p^.left:=nil;
p^.right:=nil;
End Else Begin
If k < p^.key then vstavka(p^.left, k);
If k >= p^.key then vstavka(p^.right, k);
End;
End;
Procedure print(var p: ss; h: integer);
Var i: integer;
Begin
If p <> nil then Begin
Print(p^.right, h + 1);
For i:=1 to h do write(' ');
Writeln(p^.key);
Print(p^.left, h + 1);
End
End;
function GetCount(p: ss; x: integer): integer;
begin
Result:= 0;
if p <> nil then
begin
if p^.key = x then Inc(Result);
Result:= Result + GetCount(p^.Left, x);
Result:= Result + GetCount(p^.Right, x);
end;
end;
Begin
Randomize;
ClrScr;
Write('Введите число потомков N: ');
ReadLn(N);
New(tr);
tr^.key:=Random(100);
tr^.left:=nil;
tr^.right:=nil;
I := 1;
While I <= N Do Begin
Rn := Random(100);
vstavka(tr, Rn);
Inc(I);
End;
print(tr,3);
Write('Введите искомое число E: ');
ReadLn(E);
WriteLn('Кол-во встречающихся ', GetCount(tr, E));
ReadLn;
End.
|
Преподаватель говорит, что в начале программы было 239136 байт, перед завершением работы 239088 байт, разность 48 байт. Как это он видит и как полностью освободить динамическую память? |
)