VPF::[Pascal]Освобождение_динамической_памяти

camakob

Дата 4.4.2009, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 8.1.2008

Репутация: нет
Всего: нет

Добрый вечер !
Есть код:

Код


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 байт. Как это он видит и как полностью освободить динамическую память?

volvo877

Дата 5.4.2009, 01:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(camakob @ 4.4.2009, 20:21

)

Как это он видит

Очень просто. Достаточно добавить 2 строчки в твой код:

Код

Begin
  Randomize;
  ClrScr;
  Writeln('До: ', MemAvail); { <--- Строка №1 }
  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;
  Writeln('После: ', MemAvail); { <--- Строка №2 }
End.

Теперь ты тоже видишь, сколько свободной дин. памяти было в начале, и сколько ее в конце.

Цитата(camakob @ 4.4.2009, 20:21

)

и как полностью освободить динамическую память?

Написать процедуру удаления дерева:

Код

procedure destroy(var p: ss);
begin
  if p = nil then exit;
  destroy(p^.left);
  destroy(p^.right);
  dispose(p); p := nil;
end;

, и вызвать Destroy(tr) в конце программы.

Добавлено через 3 минуты и 50 секунд
P.S. Кроме всего прочего, твоя программа будет работать корректно только на 32-битных компиляторах Паскаля. На Турбо-Паскале 7.0 она будет выводить бредовые значения как результат работы GetCount, поскольку ты НЕ возвращаешь значение, вычисленное внутри функции. Результат у тебя хранится в глобальной переменной Result, а печатаешь-то ты то, что вернула функция. А что именно она возвращает, можно уточнить?

camakob

Дата 5.4.2009, 06:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 8.1.2008

Репутация: нет
Всего: нет

Спасибо за ответ. Программу не я писал, а нашел готовую на форуме программистов Белоруссии (http://forum.codeby.net/topic15330.html), задача сама звучит так:
Используя очередь или стек, напишите программу, определяющую число вхождений элемента Е в дерево Т.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »