Скачать: CL | DM;

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


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

---

← →
Vlad Oshin ©   (2008-10-28 17:01) [5]

> 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

---

← →
Jeer ©   (2008-10-28 18:08) [6]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c