Время выполнения программы!

[BlackFishSQL]

Здравтсвуйте!
Проблема стоит так! Имеются коды различных сортировок (да и вообще к любой программе)! как найти время выполнения программ! Скорей всего модуль system нужен а в нём должны быть какие то процедуры или функции! кто нибудь сталкивался и знает как вывести время???
помоги пожалуйста!!!

[Хамяг]

вот пример:

uses
  Dos, Crt;

var
  H1,H2,M1,M2,S1,S2,S1a,S2a: Word;
  D: Real;

begin
  ClrScr;
  GetTime(H1,M1,S1,S1a);
  Readln;
  GetTime(H2,M2,S2,S2a);
  D:=(Integer(H2)-Integer(H1))
    +(Integer(M2)-Integer(M1))
    +(Integer(S2)-Integer(S1))
    +(Integer(S2a)-Integer(S1a))/100;

  Writeln(D:4:3,' секунд.');
  Readln;
end.

делаем GetTime в начале процесса и в конце процесса, после чего полученные переменные вычитаем. ещё типы нужно к Integer привести, в примере я показал это.

[TinMan]

Если не выходить за рамки TP, то можно как-то так..
Делаешь функцию Timer.

uses DOS;
// ...
function Timer: LongInt;  // время в 0.01 сек
var
	m,d,h,mi,s,s1: word;
	l: LongInt;
begin
	GetDate(h,m,d,mi);GetTime(h,mi,s,s1);l:=d;
	Timer:=(((l*24+h)*60+mi)*60+s)*100+s1
end;

А потом так:

var
  t: LongInt;
....
  t:= Timer;
  // тут твой процесс, который надо отхронометрировать
  Writeln('time elapsed (in 0.01 sec) : ',Timer - t);

P.S.
Слишком долго писал пост - Хамяг меня опередил ))

P.P.S.
Хамяг, твой код даст неверный результат, если во время работы проги сменилась дата. Не такая уж и необычная ситуация - у меня это самый активный рабочий период, и прога может работать от минут до часов. Именно поэтому я ввел GetDate.

[TinMan]

Сообщение от Хамяг

ещё типы нужно к Integer привести, в примере я показал это.

А зачем?
Если не вычитать из более раннего более позднее - то совершенно не надо..

[Хамяг]

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

Хотя, возможно, такая проблема только при выводе напрямую, без дополнительных переменных.

А дату проверять - по желанию. Думаю, автор по аналогии мог бы и сам с датой догадаться сделать .

[BlackFishSQL]

Помогите прилепить этот код что бы он работал! выкидывает всё время! вот код сортировки через процедуры и файлы!

Program sortirovka_viborom;
Type mas=array [1..1000] of integer;
Var A:mas;
    i,n:integer;
    F1,F2:Text;

    Procedure Vvod(var B:mas);
Begin
 writeln(F2,'начальный массив');
 Randomize;
 for i:=1 to n do
  begin
   B[i]:=random(101);
   write(B[i]:4);
  end;
 writeln(F2);
End;

Procedure Sort(var B:mas);
Var max,k,m,j:integer;
Begin
 for i:=1 to n-1 do
  begin
   max:=B[i]; k:=i;
   for j:=i+1 to n do
    if B[j]>max then begin
                      max:=B[j]; k:=j;
                     end;
   B[k]:=B[i]; B[i]:=max;
   for m:=1 to n do write(F2,B[m]:4);
   writeln(F2);
  end;
End;

Begin
 Assign(F1,'input.txt');
 Reset(F1);
 Assign(F2,'output.txt');
 Rewrite(F2);
 read(F1,n);
 Vvod(A);
 Sort(A);
 Close(F2);
end.

[BlackFishSQL]

Ребята помогите приделать код сюда!!!

[BlackFishSQL]

Код Хомяга выдаёт числа с минусом! почему???

[BlackFishSQL]

А скажите функция GetTime миллисекунды до сотых показывает! а есть способ какой-нибудь что бы после запятой больше знаков было хотя бы ты 0.0000?

[veniside]

есть ещё GetTickCount(), +\- 10 мс, переполняется раз в 33 дня

(а, блин, речь про ДОС. Когда она уже здохнет )