время выполнения массива

← →
RiP (2005-11-15 13:48) [0]

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

← →
Digitman © (2005-11-15 13:51) [1]

> за какое время сортируется массив

это самое "время" в каких единицах желаешь получить - в часах ? астрономических годах ? попугаях ? мешках с урюком ?

← →
Ega23 © (2005-11-15 13:52) [2]

GetTickCount до
GetTickCount после.
GetTickCount после - getTickCount до даст время выполнения в миллисекундах.
С определённой достоверностью, конечно.

← →
Anatoly Podgoretsky © (2005-11-15 14:01) [3]

Если это долго, то секундомером, если быстро, то не стоит и тратить усилия.
У тебя как?

← →
RiP (2005-11-15 14:17) [4]

вот процедура
procedure SortInsert (var Arr : array of Integer; n : Integer);
var
i, j, Temp : Integer;
begin
for i := 1 to n do begin
Temp := Arr [i];
j := i - 1;
while Temp < Arr [j] do begin
Arr [j + 1] := Arr [j];
Dec (j);
if j < 0 then
Break;
end;
Arr [j + 1] := Temp;
end;
end;

тут я ее вызвваю
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:="";
randomize;
for i:=0 to n do begin
arr[i]:=random(100);
edit1.Text:=edit1.Text+" "+inttostr (arr[i]); end;
edit2.text:="";
SortInsert(arr,n);
for i:=0 to n do
edit2.Text:=edit2.Text+" "+inttostr (arr[i]);
end;

как мне сделать

← →
Ega23 © (2005-11-15 14:36) [5]

> как мне сделать

См. [2]

← →
RiP (2005-11-15 14:47) [6]

это как
вставлять перед процедурой и после ееё???

← →
Ega23 © (2005-11-15 14:56) [7]

> вставлять перед процедурой и после ееё???

Это смотря что ты хочешь получить...

← →
RiP (2005-11-15 15:04) [8]

я хочу узнать за сколько секунд выполняется сортировка, мне нужно сравнить 2 сортировки по скорости

← →
Ega23 © (2005-11-15 15:08) [9]

> я хочу узнать за сколько секунд выполняется сортировка,
> мне нужно сравнить 2 сортировки по скорости
>

Ну И? Или ты это мне предлагаешь сделать?

← →
RiP (2005-11-15 15:25) [10]

я хотел спросить как пользоваться этой процедурой GetTickCount

> я хотел спросить как пользоваться этой процедурой GetTickCount

Набери в редакторе Delphi строчку GetTickCount, наведи на неё курсор и нажми F1.

← →
RiP (2005-11-15 15:48) [12]

вот мазгоеб

> RiP (15.11.05 15:48) [12]

Да не то слово.
Ровно 2 часа.

> [12] RiP (15.11.05 15:48)

Самокритика - это первый шаг к адекватности.

← →
RiP (2005-11-15 16:54) [15]

Джо
> Самокритика - это первый шаг к адекватности.

точно, а вы думали это про вас???

время выполнения массива Найти похожие ветки