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.
Partager