7. Как измерить время выполнения программы?

  В Турбо-Паскале имеется возможность с помощью процедуры модуля DOS

измерить количество сотых долей секунды, прошедших с момента 0 ч. 00м.

Таким образом, нужно измерить их кол-во до начало засекаемого

фрагмента и после него, а затем найти разность.

 

Program Time_size;

Uses DOS;

Var t:longint;

 

function gtc:longint;

 var a,b,c,d:word;

begin

  gettime(a,b,c,d);

  gtc:=longint(d+c*100+b*6000+a*360000);

end;

 

begin

  t:=gtc;

  <засекаемый фрагмент программы>;

  writeln(‘Time of execute:’,gtc-t,’ sot. sec.’);

  readln;

end.

 

В DELPHI существует аналогичная функция gettickcount из модуля Windows,

позволяющая измерить время выполнения в мсекундах (в тысячных долях).