Quicksort, gettime Опции

[bigformat]

Не могу понять,до и после сортировки одно и тоже время....

Код

writeln('Kolichestvo chisel v massive:');
readln(rnd);
for i:=1 to rnd do begin
data[i]:=random(rnd);
end;
writeln('poluchenniy massiv:');
for i:=1 to rnd do begin
write(data[i],' ');
end;
writeln;
begin
gettime(h,m,s,ms);
quicksort(data,1,rnd);
gettime(h1,m1,s1,ms1);
writeln('Otsortirovanniy massiv:');
for i:=1 to rnd do
write(data[i],' ');
writeln('s:',h,':',m,':',s,':',ms);
writeln('e:',h1,':',m1,':',s1,':',ms1);
end;
end.

кто может сказать...еще,как вычислить теперь значение времени,за которое отсортировалось.?

Сообщение отредактировано: bigformat - 4.01.2006 21:47

[volvo]

Function GetTime: LongInt;
Var h, m, s, ms: Word;
begin
  Dos.GetTime(h, m, s, ms);
  GetTime := ms + 100 * (s + 60 * (m + 60 * h));
end;

...
start := GetTime;
  { твоя сортировка }
WriteLn('Время сортировки = ', GetTime - start);
...