Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> измерение времени работы программы 
V
    Опции темы
Pawl
Дата 1.2.2012, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 649
Регистрация: 22.4.2008
Где: Витебск

Репутация: нет
Всего: 28
Доброго времени суток! Не особо силен в Delphi, а тут понадобилось измерить время работы программы на Delphi. Поскольку мне нужны подробные и наглядныепримеры, как это делается, не могли бы Вы подсказать, в какой литературе это описано? А если еще и соответствующих ссылочек подкинете, благодарность моя будет безмерна smile
Спасибо!


--------------------
В действительности всё совсем не так, как на самом деле
PM MAIL   Вверх
Keeper89
Дата 1.2.2012, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Можно в AQTime, можно в коде наделать таймеров. Что конкретно нужно?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Cheloveck
Дата 1.2.2012, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1578
Регистрация: 26.7.2008
Где: Тула

Репутация: нет
Всего: 32
Если требуется замерить время, затраченное на работу программы сумарно со всеми другими процессами ОС, то обычно используют GetTickCount. Если же нужно засечь время работы только одного процесса -- нужно искать аналог UNIX'овой утилиты time. 


--------------------
user posted image
PM Jabber   Вверх
northener
Дата 1.2.2012, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Pawl @  1.2.2012,  17:21 Найти цитируемый пост)
понадобилось измерить время работы программы на Delphi

Если это учебное задание, то лучше привести его "как есть". А то на двух форумах уже начали соревноваться телепаты smile 


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Pawl
Дата 1.2.2012, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 649
Регистрация: 22.4.2008
Где: Витебск

Репутация: нет
Всего: 28
Цитата(northener @  1.2.2012,  19:41 Найти цитируемый пост)
лучше привести его "как есть"

Программа перебора перестановок элементов массива, надо замерить время ее выполнения. Хотелось бы разобраться в процессе, т. к. Потом надо сравнивать скорости работы программ, реализующих данный перебор различными алгоритмами.
Код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  mas=array[1..5] of char;

const
  a:mas = 'abcde';
  m = length(a);

var
  pole:mas;

procedure perest(n: integer; r:mas);
var
  r1:mas; k, i, j:integer;
begin
  if n > m then
  begin
    for i := 1 to m do write(pole[i]);
    writeln;
  end
  else
     for i := 1 to m-n+1 do
     begin
       pole[n] := r[i];
       k := 1;
       for j := 1 to m-n+1 do
          if j<>i then
          begin
            r1[k] := r[j];
            k := k+1;
          end;
        perest(n+1, r1);
     end;
end;

begin
  perest(1, a);
  readln;
end.



--------------------
В действительности всё совсем не так, как на самом деле
PM MAIL   Вверх
northener
Дата 2.2.2012, 00:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Pawl @  1.2.2012,  20:47 Найти цитируемый пост)
Программа перебора перестановок элементов массива, надо замерить время ее выполнения. Хотелось бы разобраться в процессе, т. к. Потом надо сравнивать скорости работы программ, реализующих данный перебор различными алгоритмами.

Пока не совсем понятно.
Скорости работы разных программ сравнивать по точным критериям очень трудно, если это не чисто вычислительные программы. Может речь идет о сравнении скорости работы самих алгоритмов подобного "перебора" или каких-то других алгоритмов?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Чучмек
Дата 2.2.2012, 00:47 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41
GetThreadTimes


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
northener
Дата 2.2.2012, 00:52 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Чучмек @  2.2.2012,  00:47 Найти цитируемый пост)
GetThreadTimes 

Имхо - "выстрел в молоко".

Добавлено через 7 минут и 35 секунд
Цитата(Pawl @  1.2.2012,  20:47 Найти цитируемый пост)
Хотелось бы разобраться в процессе

В топике на "исходниках" вы сказали, что вас интересует не сам код, а "литература по данному вопросу". Тогда уж поясните какая литература вам нужна и зачем?
Ибо "такой литературы" слишком много. А учебное задание слишком общее.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Pawl
Дата 2.2.2012, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 649
Регистрация: 22.4.2008
Где: Витебск

Репутация: нет
Всего: 28
Цитата(northener @  2.2.2012,  00:52 Найти цитируемый пост)
Тогда уж поясните какая литература вам нужна и зачем?Ибо "такой литературы" слишком много. А учебное задание слишком общее.

Возможно, я действительно плохо сформулировал вопрос. Ок, Вы сами его уточнили: 
Цитата(northener @  2.2.2012,  00:28 Найти цитируемый пост)
речь идет о сравнении скорости работы самих алгоритмов подобного "перебора" или каких-то других алгоритмов

Совершенно верно, речь идет именно о сравнении скорости работы различных алгоритмов, реализованных на Delphi, и описывающих одну и ту же задачу. Пример - 
Цитата(Pawl @  1.2.2012,  20:47 Найти цитируемый пост)
Программа перебора перестановок элементов массива
 - реализует один из переборных алгоритмов. У меня есть еще программы, решающие ту же задачу другими алгоритмами (каждая - своим). Как мне узнать, какая из них быстрее. Надеюсь, корректно прояснил проблему, т. к. повторюсь, ранее я этим просто даже не интересовался, а тут надо разобраться, а я не знаю, в какую сторону копать.



--------------------
В действительности всё совсем не так, как на самом деле
PM MAIL   Вверх
Pawl
Дата 3.2.2012, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 649
Регистрация: 22.4.2008
Где: Витебск

Репутация: нет
Всего: 28
Все, тема закрыта.


--------------------
В действительности всё совсем не так, как на самом деле
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0572 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.