Счётчики со временем, Ни то ни то не работает Опции

[Anastacia Adesso]

Программа ужасная и абсолютно бесполезная.
Кажется всё есть в ней, но как всегда у меня жуткая проблемма со счётчиками.
Там метод слияния процедура, в ней нет счётика на сравнения.
И время не считается.  UZD1.PAS ( 10.09 килобайт ) Кол-во скачиваний: 363


Есть такая же прога для метода пузырька  MAJAS1_1.PAS ( 8.01 килобайт ) Кол-во скачиваний: 417

Не на русском но для того чтоб знать как должно быть.

Хоть убей, ну не знаю я этого!!
Кто нибудь!!! Памагиииите!!!

[klem4]

Anastacia Adesso, в чем именно проблема ? Показывает время == 0 ? Это зи за того что gettime/settime в том виде как ты их применила бесполезны (скорее всего слишком которткий промежуток времени), попробуй так

 h1:=0; min1:=0; sec1:=0; msec1:=0;  
     settime(h1,min1,sec1,msec1);
     for i := 1 to 10000 do
      merge1(a,n);
     gettime(h1,min1,sec1,msec1);
{ а потом переводи время в секунды  и выводи его, деля  на 10000 }

Только не передавай массив в merge1 как var параметр иначе время будет не верным

[Anastacia Adesso]

klem4

Значит всё верно?

Гмм а Ты не знаешб, почему в первой теме в первой программе (приложения) не компилирует на процедуре merge3 ну там где вещественный тип?