Discussion :

[Roland Chastain]

Bonjour !

Voici un exemple de code permettant de mesurer la durée d'exécution d'un programme.

Ce chronomètre se compose de trois variables globales et de deux procédures, l'une pour commencer à compter, l'autre pour arrêter. Le code utilise la procédure GetTime() de l'unité Dos.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program Chrono;
Uses Dos;
 
Var t1,t2,temps: Real;
 
Procedure Marche;
Var h,m,s,c: Word;
Begin
  GetTime(h,m,s,c);
  t1 := h*3600 + m*60 + s + c/100;
End;
 
Procedure Arret;
Var h,m,s,c: Word;
Begin
  GetTime(h,m,s,c);
  t2 := h*3600 + m*60 + s + c/100;
  temps:=t2-t1;
End;
 
Begin
  Marche;
  { Ici la partie du programme à chronométrer }
  Arret;
 
  Write('Temps: ',temps:0:2,' s');
 
  ReadLn;
End.

[l_autodidacte]

Cela serait mieux s'il y était dans la section Contribuez

[Roland Chastain]

Cela serait mieux s'il était dans la section Contribuez

Merci du conseil !

J'ai retravaillé mon petit exemple (que j'ai trouvé dans un programme d'échecs), de façon à avoir une seule procédure au lieu de deux. Pour le test je me suis servi de la procédure Delay.

J'imagine qu'il y a peut-être d'autres façons de mesurer le temps d'exécution d'un programme. Je serais curieux de les voir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Program Chronometre;
Uses Crt, Dos;
 
Var t1,t2,t3: Real;
 
Procedure Chrono(b: Boolean);
Var
  h, m, s, c: Word;
Begin
  GetTime(h, m, s, c);
  If b Then
    t1 := h * 3600 + m * 60 + s + c / 100
  Else Begin
    t2 := h * 3600 + m * 60 + s + c / 100;
    t3 := t2 - t1;
  End;
End;
 
Begin
  ClrScr;
  Chrono(True);
  Delay(1000);
  Chrono(False);
  Write('Temps: ', t3:0:2, ' s');
  ReadKey;
End.