 Как можно на Pascal сделать процедуру подсчета времени выполнения программы |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| Coconut |
  7.01.2007 0:57
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Константин Репутация:  0   |
Как на Pascal сделать процедуру выполняющую подсчет времени выполнения программы? Нужна для сравнения скорости выполнеия сортировок.
У меня есть на Delphi. Можно ли ее переделать? var OperBegin, OperEnd: TTimeStamp; Total: LongWord; begin OperBegin := DateTimeToTimeStamp(Now); {запоминается момент начала операции} {Здесь размещается код операции} OperEnd := DateTimeToTimeStamp(Now); {запоминается момент окончания операции} Total := OperEnd.Time - OperBegin.Time; end; |
   |
 
|
  |
Ответов
| Bokul |
7.01.2007 2:36
Сообщение
#2
|
 Гуру  Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Можно также работать с досовской процедурой GetTime(Var Hour,Minute,Second,Sec100:word), но будет медленнее + мороки больше.
-------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
|
|
|
| volvo |
7.01.2007 13:24
Сообщение
#3
|
|
Гость |
Цитата(Bokul @ 7.01.2007 1:36) будет медленнее + мороки больше. Ну, прямо таки больше?  Quicksort А насчет "медленнее" - можно узнать, что ты имел в виду? |
|
|
|
Сообщений в этой теме
Coconut Как можно на Pascal сделать процедуру подсчета времени выполнения программы 7.01.2007 0:57
Bokul Вот, посмотри Как засекать время . Для Делфи тоже ... 7.01.2007 1:07
Coconut Спасибо. Но у меня возникла небольшая проблема, пр... 7.01.2007 1:31 volvo Какой компилятор у тебя? 7.01.2007 1:32 Coconut BP 7.0 7.01.2007 1:35 Malice Улучшение кода 7.01.2007 1:54 Bokul Вместо
uses windows;
попробуй написать
uses win... 7.01.2007 1:55 Coconut Спасибо. Воспользовался Meml, вроде как заработало... 7.01.2007 2:26 Coconut Спасибо, volvo. Запустил, один раз заработало - вы... 7.01.2007 15:46 Coconut Запустил отладку вручную, gettime работает. Следов... 7.01.2007 16:50 Bokul
Так генерируем случайную букву латинского алфав... 7.01.2007 19:23 Malice
writeln(random(chr(random(25)+97));
Вот так все ... 7.01.2007 21:44 Bokul Еще добавлю - способ с досовским таймером будет вл... 7.01.2007 19:54 volvo Правда? А ничего, что время на конвертацию в LongI... 7.01.2007 20:18 Bokul
Так какой точнее? 7.01.2007 20:25 Coconut Всем огромное спасибо и признательность за помощь.... 15.01.2007 13:51 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.06.2025 22:04 |