Turbo Pascal + засечь время исполнения

← →
Михаил2 (2008-10-28 16:12) [0]

Не совсем в тему Delphi. Потребовалось для учебы сделать на паскале маленькую процедуру сортировки массива. Хочу засечь время ее выполнения. Каким образом это сделать?

(WinApi GetTickCount не предлагать)

← →
Сергей М. © (2008-10-28 16:20) [1]

> Каким образом это сделать?

С помощью наносекундомера, вестимо

← →
Ega23 © (2008-10-28 16:23) [2]

Не помню, есть в турбике Now или нет. Ну что-то такое точно должно быть.
Засеки время по Now до и после, вычти.

← →
Юрий Зотов © (2008-10-28 16:27) [3]

> Михаил2 (28.10.08 16:12)

1. Засечь время_1.
2. Выполнить операцию N раз.
3. Засечь время_2.
4. Рассчитать среднее время выполнения операции: (время_2 - время_1) / N.

Время можно засекать через GetThreadTimes, GetTickCount, Now....

Непонятно, чем Вам не угодила функция GetTickCount, но еще более непонятно другое: неужели эта задача так сложна, что нужно было обращаться на форум?

← →
Ega23 © (2008-10-28 16:36) [4]

> чем Вам не угодила функция GetTickCount

Я так понял, что у него турбик под ДОС.

> 1. Засечь время_1.
> 2. Выполнить операцию N раз.
> 3. Засечь время_2.
> 4. Рассчитать среднее время выполнения операции: (время_2
> - время_1) / N.
Время можно засекать

procedure GetTime(var Hour, Minute, Second,
Sec100 : Word);

Returns the current time set in the
operating system.

Unit name Dos

> Хочу засечь время ее выполнения.

Реализация может зависеть от того где будет выполняться программа - "чистый" DOS или сессия под Windows и какая ось именно.

Turbo Pascal + засечь время исполнения Найти похожие ветки