Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

RiP © (2005-11-15 13:48:00)
Помогите пожалуйста
У меня есть процедура, как засечь время её выполнения, т.е за какое время сортируется массив

RiP (2005-11-15 16:54:00) [1]
Джо
> Самокритика - это первый шаг к адекватности.

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

Джо (2005-11-15 16:38:00) [2]

> [12] RiP (15.11.05 15:48)

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

Ega23 (2005-11-15 16:05:00) [3]

> RiP (15.11.05 15:48) [12]

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

RiP (2005-11-15 15:48:00) [4]
вот мазгоеб

Ega23 (2005-11-15 15:46:00) [5]

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

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

RiP (2005-11-15 15:25:00) [6]
я хотел спросить как пользоваться этой процедурой GetTickCount

Ega23 (2005-11-15 15:08:00) [7]

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

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

RiP (2005-11-15 15:04:00) [8]
я хочу узнать за сколько секунд выполняется сортировка, мне нужно сравнить 2 сортировки по скорости

Ega23 (2005-11-15 14:56:00) [9]

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

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

RiP (2005-11-15 14:47:00) [10]
это как
вставлять перед процедурой и после ееё???

Ega23 (2005-11-15 14:36:00) [11]

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

См. [2]

RiP (2005-11-15 14:17:00) [12]
вот процедура
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;

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

Anatoly Podgoretsky (2005-11-15 14:01:00) [13]
Если это долго, то секундомером, если быстро, то не стоит и тратить усилия.
У тебя как?

Ega23 (2005-11-15 13:52:00) [14]
GetTickCount до
GetTickCount после.
GetTickCount после - getTickCount до даст время выполнения в миллисекундах.
С определённой достоверностью, конечно.

Digitman (2005-11-15 13:51:00) [15]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »