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.