Witam !!
Chcialbym zrobic pomiar czasu dzialania algorytmu sortowania, mozecie mi pomoc jak to zrobic ??? Bo do tej pory robie to tak:
procedure poczatek;
begin
OldDate := Now;
Decodetime(OldDate, Hour, Min, Sec, MSec);
end;
procedure koniec;
begin
Date := Now;
DecodeTime(Date, Hour2, Min2, Sec2, MSec2);
end;
procedure czas_trwania;
begin
fHour:=Hour2 - Hour;
fMin := Min2 - Min;
fSec := Sec2 - Sec;
fMsec := Msec2 - MSec;
write('Czas trwania algorytmu to: ',fMin:2,':',fsec:2,':',fMsec:3);
end;
i uruchamiam to nastepujaco:
poczatek;
algorytm_ktory_badam;
koniec;
czas_trwania;
i wyswietla mi czasy bardzo rozne tzn. nie zdazylo sie by czasy sie powtorzyly przy kilku odpaleniach programu :(( oraz czesto sie wywala (jakies przkroczenia zakresow(wszystkie zmienne to Word)),
Moze wiecie jak to ulepszyc lub macie cos lepszego i krotszego i bardziej nie zawodnego.
Prosze o POMOC !!!!!