Задачи на знание ООП, (только для Турбо-Паскаля 7.0) Опции

[volvo]

Угу... Молодец... А что произойдет с локальной копией, когда закончится выполнение процедуры, ты мне можешь рассказать? Даже не так... Давай начнем с такого вопроса: куда копируется переменная, переданная "по значению"?

[Bokul]

Угу... Молодец...

Давай начнем с такого вопроса: куда копируется переменная, переданная "по значению"?

Не знаю...
Добавил: уже знаю, благодаря той ссылке, - в стек.

Сообщение отредактировано: Bokul - 27.11.2006 10:08

[мисс_граффити]

Передавать как константу?

procedure count_each(const p:PT);

[volvo]

Нет, ребята (и девушки тоже ) - так не пойдет... Чего вы по одной строке спрашиваете? Я тоже могу сказать, что менять надо одну их этих строк, и что? Помогло это вам? Нисколько... Мне тоже вот этот момент

Передавать как константу?

ничего не сказал... Где объяснение, что изменится в таком случае? Что будте происходить, чего происходить не будет... Полную программу в студию Которая не дает утечек... Только проверяться она будет на моих тестах Вот эти части:

var
  (***** Начиная отсюда *****)
  obj_int: ^Tint;
  obj_float: ^Tfloat;
  (***** Заканчивая здесь *****)

  any_arr: TArr;
  
begin
  any_arr.init;

  (***** Начиная отсюда *****)
  obj_int := new(PTint);
  obj_int^.Create; 
  obj_int^.value := 3;
  any_arr.set_index(1, obj_int);
  obj_float := new(PTfloat);
  obj_float^.create; 
  obj_float^.value := 3.5;
  any_arr.set_index(2, obj_float);
  (***** Заканчивая здесь *****)

  any_arr.count_each(new(PTfloat));

  (* Здесь будет добавлен некоторый код !!! *)
end.

я изменю... Так, как позволяет синтаксис и описания объектов... А потом сравню размер свободной памяти ДО начала выполнения программы с размером ПОСЛЕ окончания работы, договорились? Естественно, программа должна реализовывать и основные функции: печать любого из элементов кортежа, проверку количества элементов того или иного типа...

[мисс_граффити]

запрет на пользование компилятором в силе?
если нет - где можно размер свободной памяти проверить?

[volvo]

Нет, теперь на пользование компилятором нет запрета... Сейчас закрыт только код, который будет добавляться мной для теста

Но компилироваться программа должна в TP (и менять настройки среды для того, чтобы она заработала, пользователь не должен... Если нужно изменить режимы компиляции, или еще какие вещи - пользуемся директивами компилятора)

[Bokul]

Выходит мы получаем два указателя на один объект - один локальный (копия) и второй - который мы не знаем. Мне интересно, что делает Паскаль с этим неизвестным?

Так что же компилятор делает потом с неизвестным указателем?

[мисс_граффити]

...и как посмотреть, сколько памяти свободно?

[volvo]

writeln(memavail);

[Bokul]

А я?

[volvo]

А ты - по ссылке, которую я давал раньше, там все написано
Ничего к сказанному там я добавить не могу...

[Bokul]

Так?

type
  PT = ^T;
  T = object
  constructor create;
  destructor done;{добавляем деструктор}
  end;

destructor T.done;{который ничего не делает}
begin
end;

procedure TArr.count_each(const p: PT);
var i, count: integer;
begin
  count := 0;
  for i := 1 to maxSize do
    if (arr[i]<>nil) and (typeof(arr[i]^) = typeof(p^))
       then inc(count);
  writeln('count = ', count);
  dispose(p,done);{------------свобождаем память}
end;

var
  obj_int: PTint;
  obj_float:PTfloat;
  any_arr: TArr;
  mem:longint;
begin
  clrscr;
  mem:=memavail;{замеряем память до начала свалки}
  any_arr.init;
  obj_int := new(PTint,create);
  obj_int^.value := 3;
  any_arr.set_index(1, obj_int);
  obj_float := new(PTfloat,create);
  obj_float^.value := 3.5;
  any_arr.set_index(2, obj_float);
  any_arr.count_each(new(PTfloat,create));
  dispose(obj_float,done);{чистим за собой}
  dispose(obj_int,done);{и это тоже}
  writeln('Difference : ',mem-memavail);{вроде так как и было...}
  readln;
end.

Полный код:

Сообщение отредактировано: Bokul - 29.11.2006 5:56

[volvo]

Так?

Добавление 3-х строк в те участки, в которые я показал - результат в аттаче... Не все утечки убраны...

[Bokul]

Что ж там за строки У меня максимальная утечка была 16 байт, у тебя -320

[volvo]

Bokul, в моем скриншоте содержится скрытая подсказка

[Bokul]

Все, сдаюсь... Не вижу, где убегают драгоценные байты... Идей нету, может только еще один деструктор для TArr сделать, но это уже гадание... так что прошу показать правильное решение.

[volvo]

Не вижу, где убегают драгоценные байты...

Хорошо... Подсказываю. Вот тут:

procedure TArr.set_index(i: integer; p: PT);
begin if i <= maxSize then arr[i] := p; end;

Что будет, например, если я запишу 4 раза подряд в первую ячейку заново инициализированный объект? Я имею в виду, что будет с тем объектом, адрес которого там был записан РАНЬШЕ? Он останется висеть в памяти, а указатель на него ты потеряешь

Теперь понятно, что надо поправить?

[Bokul]

Аааа... Мелькала такая мысль, ну только я ее сразу почему-то отбросил.

Теперь понятно, что надо поправить?

Ага Но я вижу три способа:
1 удалять с кучи прежний объект
2 не допускать этого
3 самому назначать индексы

Я имею в виду, что будет с тем объектом, адрес которого там был записан РАНЬШЕ?

но смотря как передавать... если инициализировать объект прямо в методе

any_arr.set_index(1,new(PTfloat,create));

то действительно потеряем, если же через известный указатель, то не вижу никаких проблем.

Сообщение отредактировано: Bokul - 1.12.2006 13:29

[volvo]

если же через известный указатель, то не вижу никаких проблем.

Да? Зато я вижу: допустим, тебе надо создать кортеж из 500 элементов... Будешь создавать 500 переменных-указателей? Тогда зачем, извини, тебе кортеж... Работать-то будешь все равно через одну (максимум - две, потому что есть 2 разных типа реальных объектов, которые ты можешь создать) переменные. И все равно потеряешь старое значение при инициализации нового экземпляра...

я вижу три способа:

Если можно - решения для всех трех - в студию

[Bokul]

Если можно - решения для всех трех - в студию

Сделаем, но только через часиков 10 - сейчас спать, а завтра в школу не идти

P.S. Я конечно понимаю, что достал уже, но я так и не понял, что Паскаль делает с этим неизвестным указателем