что эффективнее?

[Poma][a]

что эффективнее Odd или n mod 2 <> 0? а как доказать?
З.Ы доказать то я и сам смогу если подскажете как посмотреть какая программа работает быстрее?

[Camaro Chevelle]

лучше всего вообще имхо n and 1<>0. odd примерно так же
а mod это операция деления которая вроде считается что долго выполняется
но вообще современные компиляторы умеют сами мод 2 заменять на and 1

[Poma][a]

Сообщение от Camaro Chevelle

лучше всего вообще имхо n and 1<>0. odd примерно так же
а mod это операция деления которая вроде считается что долго выполняется
но вообще современные компиляторы умеют сами мод 2 заменять на and 1

спасибо но мне на ТУРБО ПАСКАЛЕ и именно mod и Odd просто на одном сайте с модератором повздорили..... и можно все-таки функцию?

[Serge_Bliznykov]

способ #1.
пишете программу, которая проверяет числа в цикле.
цикл делаете побольше (ну на 100 миллионов иттераций, например.
Перед циклом берете время в миллисекундах.

var
  Ticks      : LongInt  absolute 0:$46c;

после цикла берёте время.
Находите разницу.

меняете в цикле odd на mod 2 - вставляете в тот же цикл. запускаете.
Запускать надо хотя бы два-три раза каждую из программ и желательно попеременно. (чтобы уменьшить влияние внешних факторов - загрузку ОС и т.д.)

способ #2. - правильный!!!
смотрите ассемблерный код, который генерит Паскаль для этих команд и считаете такты выполнения для одной и другой команды.

исходный код программы:

var n : integer;
 k : integer;
begin
  Read(n);
  If odd(n) then Inc(k);
  if n mod 2 <> 0 then Inc(k);

полученный ассемблерный листинг:

PROGRAM.5:  If odd(n) then Inc(k);
  cs:0026 A05200         mov    al,[0052]
  cs:0029 D0E8           shr    al,1
  cs:002B 7304           jnb    PROGRAM.6 (0031)
  cs:002D FF065400       inc    word ptr [0054]
PROGRAM.6:  if n mod 2 <> 0 then Inc(k);
  cs:0031 A15200         mov    ax,[0052]
  cs:0034 99             cwd
  cs:0035 B90200         mov    cx,0002
  cs:0038 F7F9           idiv   cx
  cs:003A 92             xchg   dx,ax
  cs:003B 09C0           or     ax,ax
  cs:003D 7404           je     PROGRAM.7 (0043)
  cs:003F FF065400       inc    word ptr [0054]

очевидно, что команда ODD() НАМНОГО эффективнее и быстрее!

[Poma][a]

Спасибо огромное! только можно вопрос : как посмотреть ассемблерный код?

[Camaro Chevelle]

в комплекте с паскалем идёт turbo debugger (td.exe), через него смотрят

[Serge_Bliznykov]

Сообщение от Camaro Chevelle

в комплекте с паскалем идёт turbo debugger (td.exe), через него смотрят

"Ты знал, ты знал!" :-D

Да, точно. Вышеприведённый листинг взят именно из окошка TurboDebugger'а.
Воспользовался им, т.к. сгенерил паскалевский код с отладочной информацией в EXE, а он понимает формат этой самой отладочной информации.

А так код можно посмотреть любым дебаггером/дизассемблером (ну, разумеется, "понимающим" 16-битный ассемблерный код...)