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

← →
Vulko (2004-09-12 16:43) [0]

← →
Семен Сорокин © (2004-09-12 18:14) [1]

GetTickCount в начале работы подпрограммы и в конце, разница - время работы в миллисекундах

← →
kaZaNoVa (2004-09-12 19:21) [2]

Var
k,n,h,p:int64;

***********

procedure taimer(a:boolean);
Begin
if a then begin
p:=gettickcount; QueryPerformanceFrequency(h); QueryPerformanceCounter(k);
end else begin
QueryPerformanceCounter(n);
MessageBox(0,"Ready",Pchar(Inttostr(gettickcount-p)+" ms ("+(Inttostr(round(1000000*(n-k)/h)))+") microsec"),0);
end;end;

← →
Vulko © (2004-09-12 20:01) [3]

Семен Сорокин, у меня подпрограмма простейшая (сортировка массива), и нужно как более точно посчитать время работы...

Мне нужно сравнить сколько по времени разные виды сортировки выполняются, и сделать вывод - какой метод сортировки лучший.
Имхо тут миллисекунд не достаточно... Хотя может я и не прав.

← →
Семен Сорокин © (2004-09-12 20:03) [4]

Vulko © (12.09.04 20:01) [3]

см.[2]
QueryPerformanceCounter

← →
Rem (2004-09-13 10:12) [5]

>>сколько по времени разные виды сортировки выполняются
>>Имхо тут миллисекунд не достаточно...

Все от размера массивов, которые сортируются, зависит:

Если массивы по 2 элемента - то и микросекунд не хватит.

А если по 20 млрд. элементов да еще и на диске - то можно и ходиками время замерять.

← →
evvcom © (2004-09-13 12:05) [6]

В Delphi в Demo есть пример во Threads как раз различные сортировки. Запускаешь, и даже на глаз видно, который из них быстрее работает. Можно добавить свой метод сортировки и тестировать.

← →
Vasya.ru (2004-09-13 13:33) [7]

разные виды сортировки выполняются, и сделать вывод - какой метод сортировки лучший
А у кнута, Ахо, Вирта из книжек списать нельзя?

Иногда нельзя, все от данных зависит и огранизации хранения. Сделай проще запускай 1000 раз сортировку, тогда точно mc хватит.

← →
Rem (2004-09-13 13:46) [9]

[8]
Только каждый раз используя одинаковый начальный массив данных.
Иначе последующим запускам нечего сортировать будет - все уже отсортировано.

"Все уже украдено до нас" (С) Операция Ы :)

Семен Сорокин, благодарствую.

evvcom, ну при чём тут это? Знаю я эти демосы... не надо мне смотреть. Мне просто нужно сделать простешую лабу.

Как определить время выполнения подпрограммы? Найти похожие ветки