Mesurer la durée d'exécution d'un programme
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:
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. |
