Нажмите для просмотра прикрепленного файлаА вот эта очень странная..
Надо посчитать время затраченное на сортировку каждым методом отдельно.
А он везде выдаёт по нулям, на больших константах глючит..
Что делать?
Полная версия: Gettime
Еще бы... Ты представляешь себе, КАКИЕ значения выводятся в 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 мс, так что ноль для одного вызова - это вполне логичный результат. НО!!! Ошибку все-же исправить надо...
О Боже!!! Я ошибку так и не нашла в функции..
А по 200 раз прогоняя там такая фигня выходит..
А по 200 раз прогоняя там такая фигня выходит..
Не нашла? Тогда смотри... Твой вариант:
А теперь посмотри, что у меня было...
Цитата
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;
var h,m,s,ms :word;
begin
dos.gettime(h,m,s,ms);
gettime:=ms*100*(s+60*(m+60*h));
end;
А теперь посмотри, что у меня было...
Старею
Спасибо!!!
А как думаешь, в таком виде препод примет прогу?
Спасибо!!!
А как думаешь, в таком виде препод примет прогу?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.