Неработающая процедура Gettime

@4итер · Регистрация: 16.10.2011

У меня счетчик не высчитывает время, все вроде правильно сделал. Выводит только нули. Помогите пожалуйста.

Pascal

function fGetTime: LongInt;
var
  Hr, Min, Sec, Sec_100: Word;
begin
  GetTime(Hr, Min, Sec, Sec_100);
  fGetTime:=LongInt(Hr)*3600 + LongInt(Min)*600 + Sec*100 + Sec_100;
end;
procedure QuickSort(var Matr: TMatr; var Res: Real);
var
  After, Before: LongInt;
  Temp: Integer;
  i, j, l: Byte;
begin
  Res:=0;
  Before:=fGetTime;
  for l:=1 to Max_Value do
    for i:=1 to Max_Value - 1 do
      for j:=i + 1 to Max_Value do
        if Matr[i, l] > Matr[j, l] then
        begin
          Temp:=Matr[i, l];
          Matr[i, l]:=Matr[j, l];
          Matr[j, l]:=Temp;
        end;
  After:=fGetTime;
  Res:=(After - Before);
end;

HighPredator · 29.05.2012, 23:38

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

@4итер · 30.05.2012, 00:12 **[ТС]**

И что с этим можно сделать? Посчитать же надо

HighPredator · 30.05.2012, 00:26

Если нет принципиальных препятствий, то можно увеличить Max_value. В противном случае сложно будет что-то сделать.

@4итер · 30.05.2012, 07:11 **[ТС]**

нет Max_Value нельзя увеличить..должен же быть способ

@Puporev · 30.05.2012, 07:30

прогоните сортировку в цикле 100 или 1000 раз, а потом полученное время разделите на 100 или 1000, больше никак, просто на хорошем компьютере программа выполняется так быстро что gettime не ловит эти значения. И вообще измерять скорость выполнения сортировок это давно уже маразм...

@4итер · 30.05.2012, 15:40 **[ТС]**

прогоните сортировку в цикле 100 или 1000 раз

а можно вот тут поподробнее. как это сделать?

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

ну маразм или нет не знаю, но курсовую надо доделать)

@Puporev · 30.05.2012, 16:22

Сообщение от 4итер

а можно вот тут поподробнее. как это сделать

Сортировку оформить процедурой.
начальное время
В цикле
for k:=1 to 1000 do
begin
запомнить исходный массив
отсортировать
end;
конечное время
время 1 сортировки=(конец-начало)/1000

@4итер · 30.05.2012, 19:27 **[ТС]**

а как еще можно сделать искуственную задержку?

HighPredator · 30.05.2012, 19:30

Использовать функцию Sleep.

@Puporev · 30.05.2012, 19:31

Сообщение от HighPredator

Использовать функцию Sleep.

нет такого в Турбо, есть

Pascal

1
2
3

uses crt;
......
delay(1000);//=1секунда, примерно..

HighPredator · 30.05.2012, 19:33

Не по теме:

Забыл, что раздел про паскаль:D

@Puporev · 30.05.2012, 19:35

Сообщение от HighPredator

Забыл, что раздел про паскал

В АВС есть sleep

@4итер · 30.05.2012, 19:40 **[ТС]**

я использовал delay и у меня почему то выдал отрицательное число, почему такое может быть?

@Puporev · 30.05.2012, 19:42

Это может быть если переменная типа integer, а значение больше maxint, или тоже самое с longint.

@Puporev Модератор 63219 / 46976 / 32377 Регистрация: 18.05.2008 Сообщений: 113,854
	30.05.2012, 19:35	13
	Сообщение от HighPredator Забыл, что раздел про паскал В АВС есть sleep 0

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
	30.05.2012, 19:40 [ТС]	14
	я использовал delay и у меня почему то выдал отрицательное число, почему такое может быть? 0

HighPredator 5988 / 2112 / 739 Регистрация: 10.12.2010 Сообщений: 5,932 Записей в блоге: 3
	29.05.2012, 23:38	2
	Есть предположение, что ваши три вложенных цикла выполняются настолько быстро, что разность времен всегда равна нулю. 0

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
	30.05.2012, 00:12 [ТС]	3
	И что с этим можно сделать? Посчитать же надо 0

HighPredator 5988 / 2112 / 739 Регистрация: 10.12.2010 Сообщений: 5,932 Записей в блоге: 3
	30.05.2012, 00:26	4
	Если нет принципиальных препятствий, то можно увеличить Max_value. В противном случае сложно будет что-то сделать. 0

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
	30.05.2012, 07:11 [ТС]	5
	нет Max_Value нельзя увеличить..должен же быть способ 0

@Puporev Модератор 63219 / 46976 / 32377 Регистрация: 18.05.2008 Сообщений: 113,854
	30.05.2012, 07:30	6
	прогоните сортировку в цикле 100 или 1000 раз, а потом полученное время разделите на 100 или 1000, больше никак, просто на хорошем компьютере программа выполняется так быстро что gettime не ловит эти значения. И вообще измерять скорость выполнения сортировок это давно уже маразм... 0

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
	30.05.2012, 15:40 [ТС]	7
	прогоните сортировку в цикле 100 или 1000 раз а можно вот тут поподробнее. как это сделать? И вообще измерять скорость выполнения сортировок это давно уже маразм... ну маразм или нет не знаю, но курсовую надо доделать) 0

@Puporev Модератор 63219 / 46976 / 32377 Регистрация: 18.05.2008 Сообщений: 113,854
	30.05.2012, 16:22	8
	Сообщение от 4итер а можно вот тут поподробнее. как это сделать Сортировку оформить процедурой. начальное время В цикле for k:=1 to 1000 do begin запомнить исходный массив отсортировать end; конечное время время 1 сортировки=(конец-начало)/1000 0

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
	30.05.2012, 19:27 [ТС]	9
	а как еще можно сделать искуственную задержку? 0

HighPredator 5988 / 2112 / 739 Регистрация: 10.12.2010 Сообщений: 5,932 Записей в блоге: 3
	30.05.2012, 19:30	10
	Использовать функцию Sleep. 0

HighPredator
	30.05.2012, 19:33 #12
	Не по теме: Забыл, что раздел про паскаль:D 0

Опции темы

@Puporev Модератор 63219 / 46976 / 32377 Регистрация: 18.05.2008 Сообщений: 113,854
	30.05.2012, 19:42	15
	Это может быть если переменная типа integer, а значение больше maxint, или тоже самое с longint. 0