Скачать: CL | DM;

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

← →
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

---

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

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


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

---

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

вот мазгоеб

---

← →
Ega23 ©   (2005-11-15 16:05) [13]

> RiP   (15.11.05 15:48) [12]


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

---

← →
Джо ©   (2005-11-15 16:38) [14]

>  [12] RiP   (15.11.05 15:48)

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.026 c