Условие IF, вопрос

[spirit-ua]

Всем Привет!

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

код 1

   x := 3; k1 := 5; k2 := 7;
   if x < k1 then
     if x < k2 then
       ...

код 2

   if (x < k1) and (x < k2) then
     ...

условия в задаче гораздо сложнее, но есть возможность использовать один if...

Подскажите, какой код "быстрее"

[Пепел Феникса]

обычно это примерно одно и тоже.

[spirit-ua]

Сообщение от Пепел Феникса

обычно это примерно одно и тоже.

ОК, а если условий будет не 2, а два десятка? "быстрее" будет с одним IF или если будет 20 условий отдельно?

[eval]

посмотрите в дебагере во что превратиться оно в окне чпу, тогда поймете что и как

[Utkin]

Быстрей будет так:

 if x < k1 then

А к2 выкиньте на помойку ибо он тут в условии нафиг не сдался.

[spirit-ua]

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

Быстрей будет так:

 if x < k1 then

А к2 выкиньте на помойку ибо он тут в условии нафиг не сдался.

Код привел как пример... интересует именно оптимизация по времени, все в один IF или по отдельности...

[eval]

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

[Serge_Bliznykov]

читайте про опцию компилятора:

Complete boolean eval 	
Evaluates every piece of an expression in Boolean terms, regardless of whether the result of an operand evaluates as false. 
Corresponds to {$B}.

если в опциях стоит ПОЛНОЕ вычисление логического выражения, то вариант со вложенными IF будет быстрее...
это раз.

но, если только Вы в выражениях не вызываете функции, которые обрабатывают массивы данных, то это попытка экономии на спичках.
напишите в цикле (ну, миллион раз) вызов куска кода со вложенными IF и куска кода с логическим выражением со множеством проверок. Уверен, что даже в случае Complete boolean eval = TRUE, разница на миллион циклов будет доли секунды (если вообще будет!! ...
Это означает, что в реальном проекте подобная оптимизация никакого реального выигрыша не даст!


всё сказанное выше - моё IMHO, то бишь субъективное личное мнение...

[spirit-ua]

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

читайте про опцию компилятора:

если в опциях стоит ПОЛНОЕ вычисление логического выражения, то вариант со вложенными IF будет быстрее...
это раз.

но, если только Вы в выражениях не вызываете функции, которые обрабатывают массивы данных, то это попытка экономии на спичках.
напишите в цикле (ну, миллион раз) вызов куска кода со вложенными IF и куска кода с логическим выражением со множеством проверок. Уверен, что даже в случае Complete boolean eval = TRUE, разница на миллион циклов будет доли секунды (если вообще будет!! ...
Это означает, что в реальном проекте подобная оптимизация никакого реального выигрыша не даст!


всё сказанное выше - моё IMHO, то бишь субъективное личное мнение...

Этого достаточно, всем спасибо, тему можно закрыть

[doktor255]

Тоже заинтересовал вопрос. Результаты.

procedure TForm1.Button1Click(Sender: TObject);
var
  a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, i: integer;
  t1, t2: int64;
begin
  a0 := 20;
  a1 := 1;
  a2 := 2;
  a3 := 3;
  a4 := 4;
  a5 := 5;
  a6 := 6;
  a7 := 7;
  a8 := 8;
  a9 := 9;
  a10 := 10;
  t1 := GetTickCount;
  for I := 0 to 1000000000 do
    if a0 > a1 then
      if a0 > a2 then
        if a0 > a3 then
          if a0 > a4 then
            if a0 > a5 then
              if a0 > a6 then
                if a0 > a7 then
                  if a0 > a8 then
                    if a0 > a9 then
                      if a0 > a10 then
                        a0 := 20;
  t2 := GetTickCount;
  Memo1.Lines.Add('Комбинация if - then отработала за ' + IntToStr(t2 - t1) + ' мс');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, i: integer;
  t1, t2: int64;
begin
  a0 := 20;
  a1 := 1;
  a2 := 2;
  a3 := 3;
  a4 := 4;
  a5 := 5;
  a6 := 6;
  a7 := 7;
  a8 := 8;
  a9 := 9;
  a10 := 10;
  t1 := GetTickCount;
  for I := 0 to 1000000000 do
    if (a0 > a1) and
      (a0 > a2) and
        (a0 > a3) and
          (a0 > a4) and
            (a0 > a5) and
              (a0 > a6) and
                (a0 > a7) and
                  (a0 > a8) and
                    (a0 > a9) and
                      (a0 > a10) then
                        a0 := 20;
  t2 := GetTickCount;
  Memo1.Lines.Add('Комбинация if - and отработала за ' + IntToStr(t2 - t1) + ' мс');
end;

Комбинация if - then отработала за 4469 мс
Комбинация if - and отработала за 4062 мс

Чтоб увидеть хоть какую -то разницу, пришлось зарядить МИЛЛИАРД! циклов. С небольшим отрывом победил and.