Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Михаил2 © (2008-10-28 16:12:00)
Не совсем в тему Delphi. Потребовалось для учебы сделать на паскале маленькую процедуру сортировки массива. Хочу засечь время ее выполнения. Каким образом это сделать?

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

Jeer (2008-10-28 18:08:00) [1]

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

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

Vlad Oshin (2008-10-28 17:01:00) [2]

> 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

Ega23 (2008-10-28 16:36:00) [3]

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

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

Юрий Зотов (2008-10-28 16:27:00) [4]
> Михаил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:23:00) [5]
Не помню, есть в турбике Now или нет. Ну что-то такое точно должно быть.
Засеки время по Now до и после, вычти.

Сергей М. (2008-10-28 16:20:00) [6]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »