Хранение переменных Integer

@kudasov · Регистрация: 10.10.2012

Author24 — интернет-сервис помощи студентам

Всем доброго дня)
Есть задача типа:

Pascal

for i := 0 to iii do
begin
 
  update(List);
 
  for j := 0 to jjj do
  begin
    if {условие} then
      {нужно как-то запомнить значение j,
       чтобы на выходе из цикла их можно было использовать}
  end;
 
  {
     цикл по сохраненным j
  }
 
end;

Опытные люди посоветуйте - как и куда лучше сохранять значения j ? Главный критерий скорость и без потерь памяти, т.к циклы могут быть очень большими.

Мой вариант с динамическим массивом (в тестовом режиме 45 сек):

Кликните здесь для просмотра всего текста

Pascal

var
  A: array of integer;
 
for i := 0 to iii do
begin
 
  update(List);
 
  for j := 0 to jjj do
  begin
    if {условие} then
    begin
      SetLength(A, Length(A) + 1);
      A[High(A)] := j;
    end;
  end;
 
  for j := Low(A) to High(A) do
  begin
    {процедуры с сохраненными значениями}
  end;
 
  SetLength(A, 0);
end;

вариант со списком (40 сек):

Кликните здесь для просмотра всего текста

Pascal

var
  PInt: ^integer;
  A : TList;
 
for i := 0 to iii do
begin
 
  update(List);
  
  A := TList.Create;
 
  for j := 0 to jjj do
  begin
    if {условие} then
    begin
      New(PInt);
      PInt^ := j; 
      A.Add(PInt);
    end;
  end;
 
  for j := 0 to A.Count - 1 do
  begin
    {процедуры с сохраненными значениями}
    Dispose(A.Items[j]);
  end;
 
  FreeAndNil(A);
end;

Тухлые помидоры и яйца приветствуются)

@FIL · 27.12.2012, 17:15

А в одном цикле все нельзя сделать?

Delphi

for i := 0 to iii do
begin
 
  update(List);
 
  for j := 0 to jjj do
  begin
    if {условие} then
    begin
      {процедуры с сохраненными значениями}
    end;
  end;

@mss · 27.12.2012, 17:28

Сообщение от kudasov

Тухлые помидоры и яйца приветствуются

Да с удовольствием)

Начинать нужно с оценки предельно возможного значения maxsize = iii * jjj * sizeof(integer)

Если вероятность возможности размещения такого объема данных в непрерывной области памяти стопроцентна либо близка к 100%, тогда следует до начала выполнения вложенных циклов выделить память в maxsize байт под дин.массив, во внутреннем цикле записывать в массив данные, подсчитывая число выполненных записей, и после завершения циклов перераспределить дин.массив с учетом фактически использованных "ячеек".
Это позволит радикально увеличить производительность алгоритма за счет минимизации обращений к менеджеру памяти.

В случае с дин. связным списком проблема с наличием непрерывного свободного блока памяти размером в maxsize не существует, но зато не избежать множественных обращений к менеджеру памяти. Поэтому для наращивания производительности алгоритма следует отказаться от стандартного встроенного менеджера в пользу альтернативных, к примеру, FastMM4

@xNeKiToSx · 27.12.2012, 17:35

а что быстрее будет протикать
for i:=1 to x do ;
или
i:=1;
while x>i do
inc(i);
может это поможет увеличить скорость

@mss · 27.12.2012, 18:00

Сообщение от xNeKiToSx

может это поможет увеличить скорость

Это ловля блох, в дан.случае замена for-цикла на while-цикл не повлияет радикально на рост на производительности. Хотя в ряде случаев while-цикл при прочих равных условиях действительно может дать определенный выигрыш по времени.

Здесь основные потери времени на массированных операциях распределения/перераспределения памяти, эти потери можно и следует ликвидировать.

@kudasov · 27.12.2012, 18:06 **[ТС]**

Сообщение от mss

... следует до начала выполнения вложенных циклов выделить память ...

Действительно радикально, в случае с массивом тест прошел за 4 сек.! - SetLength(A, jjj + 1) вынес из внутреннего цикла. Но вот со списком результат хуже, всего 35 сек, перед внутренним циклом определяю размер A.Capacity := jjj + 1. Почему такой маленький прирост? Или у TList.Capacity друга логика?

@antikiler_ · 27.12.2012, 18:34

Сообщение от kudasov

Но вот со списком результат хуже, всего 35 сек

А если так

Delphi

 var
   A: TList;
  
begin
  A := TList.Create;
  for i := 0 to iii do
    begin
      A.Clear;
      for j := 0 to jjj do
        begin
          if i <> j then
            begin
              A.Add(Pointer(j));
            end;
        end;
 
      for j := 0 to A.Count - 1 do
        begin
           {процедуры с сохраненными значениями}
         // Memo1.Lines.Add(IntToStr(Integer(A.Items[j])))
        end;
 
    end;
  FreeAndNil(A);
end;

@kudasov · 27.12.2012, 19:03 **[ТС]**

Сообщение от antikiler_

А если так

22 сек. До проверки думал, что Pointer(j) в итоге даст одинаковые значения во всем списке, т.к все указатели содержат адрес одной переменной j, но везде разные. Почему так?

@cotseec · 27.12.2012, 19:10

Сообщение от kudasov

т.к все указатели содержат адрес одной переменной j

Pointer(j) - приведение к типу
@j - адрес переменной

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.12.2012, 17:28	3
	Сообщение от kudasov Тухлые помидоры и яйца приветствуются Да с удовольствием) Начинать нужно с оценки предельно возможного значения maxsize = iii * jjj * sizeof(integer) Если вероятность возможности размещения такого объема данных в непрерывной области памяти стопроцентна либо близка к 100%, тогда следует до начала выполнения вложенных циклов выделить память в maxsize байт под дин.массив, во внутреннем цикле записывать в массив данные, подсчитывая число выполненных записей, и после завершения циклов перераспределить дин.массив с учетом фактически использованных "ячеек". Это позволит радикально увеличить производительность алгоритма за счет минимизации обращений к менеджеру памяти. В случае с дин. связным списком проблема с наличием непрерывного свободного блока памяти размером в maxsize не существует, но зато не избежать множественных обращений к менеджеру памяти. Поэтому для наращивания производительности алгоритма следует отказаться от стандартного встроенного менеджера в пользу альтернативных, к примеру, FastMM4 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	27.12.2012, 17:35	4
	а что быстрее будет протикать for i:=1 to x do ; или i:=1; while x>i do inc(i); может это поможет увеличить скорость 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.12.2012, 18:00	5
	Сообщение от xNeKiToSx может это поможет увеличить скорость Это ловля блох, в дан.случае замена for-цикла на while-цикл не повлияет радикально на рост на производительности. Хотя в ряде случаев while-цикл при прочих равных условиях действительно может дать определенный выигрыш по времени. Здесь основные потери времени на массированных операциях распределения/перераспределения памяти, эти потери можно и следует ликвидировать. 0

@kudasov 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 25
	27.12.2012, 18:06 [ТС]	6
	Сообщение от mss ... следует до начала выполнения вложенных циклов выделить память ... Действительно радикально, в случае с массивом тест прошел за 4 сек.! - SetLength(A, jjj + 1) вынес из внутреннего цикла. Но вот со списком результат хуже, всего 35 сек, перед внутренним циклом определяю размер A.Capacity := jjj + 1. Почему такой маленький прирост? Или у TList.Capacity друга логика? 0

@kudasov 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 25
	27.12.2012, 19:03 [ТС]	8
	Сообщение от antikiler_ А если так 22 сек. До проверки думал, что Pointer(j) в итоге даст одинаковые значения во всем списке, т.к все указатели содержат адрес одной переменной j, но везде разные. Почему так? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	27.12.2012, 19:10	9
	Сообщение от kudasov т.к все указатели содержат адрес одной переменной j Pointer(j) - приведение к типу @j - адрес переменной 0