SALIDZ.PAS ( 2.12 килобайт )
Кол-во скачиваний: 627
А вот эта очень странная..
Надо посчитать время затраченное на сортировку каждым методом отдельно.
А он везде выдаёт по нулям, на больших константах глючит..
Что делать?
Еще бы... Ты представляешь себе, КАКИЕ значения выводятся в GetTime? Первое: изменить тип Start с Word на LongInt... Второе: смотреть на исходник функции GetTime здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=8585&view=findpost&p=58499, пока не заметишь ошибку...
Третье: после всех исправлений я проверил на 200 вызовах
start:=gettime;
for i := 1 to 200 do { <--- !!! }
shella(ar, n ,sella);
writeln('Laiks ir ',gettime-start,'ms');
О Боже!!! Я ошибку так и не нашла в функции..
А по 200 раз прогоняя там такая фигня выходит..
Не нашла? Тогда смотри... Твой вариант:
Старею
Спасибо!!!
А как думаешь, в таком виде препод примет прогу?