Bonjour,
J'aimerais savoir combien de tps un de mes programmes met pour s'exécuter.. Quelque chose comme:
Code :
- begin
- tempsDebut:=time;
- repeat
- ....{boucle principale}
- until
- tempsFin:=time;
- writeln('Temps de calcul:',tempsFin-tempsDebut,' secondes');
- end;
|
Je pensais utiliser la fonction time, mais on ne peux pas obtenir une précision à la seconde (ça retourne qqc de la forme xxxx,xx, où la partie fractionnaire représente le nombre d'heure écoulé depuis 12am je crois).
Comment faire pour obtenir une précision à la seconde?
Merci