Как можно на Pascal сделать процедуру подсчета времени выполнения программы Опции

[Coconut]

Как на Pascal сделать процедуру выполняющую подсчет времени выполнения программы? Нужна для сравнения скорости выполнеия сортировок.
У меня есть на Delphi. Можно ли ее переделать?
var
OperBegin, OperEnd: TTimeStamp;
Total: LongWord;

begin
OperBegin := DateTimeToTimeStamp(Now); {запоминается момент начала
операции}

{Здесь размещается код операции}

OperEnd := DateTimeToTimeStamp(Now); {запоминается момент окончания
операции}
Total := OperEnd.Time - OperBegin.Time;
end;

[Bokul]

Вот, посмотри Как засекать время . Для Делфи тоже самое. Если надо точнее, то QueryPerformanceCounter и QueryPerformanceFrequency, о них можно почитать здесь

[Coconut]

Спасибо. Но у меня возникла небольшая проблема, при использовании uses windows; вылетает ошибка file windows.tpu не найден, если можете, скиньте, и путь где он должен лежать

[volvo]

Какой компилятор у тебя?

[Coconut]

BP 7.0

[Malice]

Улучшение кода

[Bokul]

Вместо

uses windows; 

попробуй написать

uses winprocs;

P.S. Ведь BP 7.0 работает с WinApi?

Сообщение отредактировано: Bokul - 7.01.2007 6:00

[Coconut]

Спасибо. Воспользовался Meml, вроде как заработало, потому что в массив ввел всего 50 элементов (на больше меня не хватило) , а с функцией random знаком плохо, завтра разбеоусь, и проверю еще раз. Еще раз спасибо всем.

с winprocs - аналогично

[Bokul]

Можно также работать с досовской процедурой GetTime(Var Hour,Minute,Second,Sec100:word), но будет медленнее + мороки больше.

[volvo]

будет медленнее + мороки больше.

Ну, прямо таки больше?
Quicksort

А насчет "медленнее" - можно узнать, что ты имел в виду?

[Coconut]

Спасибо, volvo. Запустил, один раз заработало - выывела результат на 20 элементах, потом и на 30 показывает 0, думаю мало элементов, как массиву типа pchar присвоить значения с помощью random?

[Coconut]

Запустил отладку вручную, gettime работает. Следовательно, мало элементов.

[Bokul]

как массиву типа pchar присвоить значения с помощью random?

Так генерируем случайную букву латинского алфавита:

randomize;
writeln(random(chr(random(25)+97));

Ну, прямо таки больше?

Она не покажет правильный результат, если прогу тестировать в полночь..

А насчет "медленнее" - можно узнать, что ты имел в виду?

Обратится один аз к памяти медленнее чем делать столько вычислений + опять таки обращаться к памяти?

[Bokul]

Еще добавлю - способ с досовским таймером будет влиять на увеличения засекаемого времени, ведь после самого взятия время мы тратим некоторые доли секунд на преобразование в LongInt, что дает погрешность.

[volvo]

Еще добавлю - способ с досовским таймером будет влиять на увеличения засекаемого времени, ведь после самого взятия время мы тратим некоторые доли секунд на преобразование в LongInt, что дает погрешность.

Правда? А ничего, что время на конвертацию в LongInt при первом вызове практически идентично времени на ту же конвертацию при втором вызове? Дальше продолжить, или догадаешься? Это первое...

Второе - НЕТ совершенно безошибочного способа, даже QueryPerformanceCounter будет давать тебе результаты, которые можно будет признать некорректными, ибо Windows - вообще-то не RT OS... Выбирать надо способ, дающий достаточную точность...

[Bokul]

Выбирать надо способ, дающий достаточную точность...

Так какой точнее?

[Malice]

writeln(random(chr(random(25)+97));

Вот так все таки:

writeln(chr(random(25)+97));

[Coconut]

Всем огромное спасибо и признательность за помощь. Использовал Gettime, при сортировке 10000 элементов получил время в 5 мс, задачу сдал.