Gettime, Глючит и такого быть не может Опции

[Anastacia Adesso]

 SALIDZ.PAS ( 2.12 килобайт ) Кол-во скачиваний: 647
А вот эта очень странная..
Надо посчитать время затраченное на сортировку каждым методом отдельно.

А он везде выдаёт по нулям, на больших константах глючит..
Что делать?

[volvo]

Еще бы... Ты представляешь себе, КАКИЕ значения выводятся в GetTime? Первое: изменить тип Start с Word на LongInt... Второе: смотреть на исходник функции GetTime здесь: Quicksort, GetTime, пока не заметишь ошибку...

Третье: после всех исправлений я проверил на 200 вызовах

     start:=gettime;
     for i := 1 to 200 do { <--- !!! }
       shella(ar, n ,sella);

     writeln('Laiks ir ',gettime-start,'ms');

и у меня получилось время порядка 20-25 мс, так что ноль для одного вызова - это вполне логичный результат. НО!!! Ошибку все-же исправить надо...

[Anastacia Adesso]

О Боже!!! Я ошибку так и не нашла в функции..

А по 200 раз прогоняя там такая фигня выходит..

[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;

А теперь посмотри, что у меня было...

[Anastacia Adesso]

Старею
Спасибо!!!

А как думаешь, в таком виде препод примет прогу?