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.

[Alcatîz]

Bonjour,

Puisque nous sommes en Turbo Pascal, il existait sous MS-DOS des méthodes beaucoup plus précises (jusqu'au millionième de seconde) pour mesurer les temps d'exécution de blocs d'instructions. Elles se basaient sur le timer 8253 du PC et nécessitaient l'utilisation de l'Assembleur. Elles sont inutilisables sur les systèmes d'exploitation actuels, qui bien sûr ne permettent pas de détourner ou d'inhiber les interruptions matérielles.