Comment savoir le tps que le programme a mis a s'executer en pascal?
Comment savoir le tps que le programme a mis a s'executer en pascal? - Programmation
Marsh Posté le 22-10-2001 à 23:57:16
tu peux demander l'heure systeme au début et à la fin du programme, puis faire une soustraction et afficher le résultat. par contre, je connais pas le nom des fonctions
Marsh Posté le 23-10-2001 à 22:49:05
tu le veux en pascal ou en delphi ?
en delphi je peux te donner le calcul pour trouver le temps écoulé.
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Marsh Posté le 27-10-2001 à 16:19:24
tu l'aurais lundi (j'ai utilisé ça au boulot donc j'ai pas le source ici)
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Marsh Posté le 27-10-2001 à 17:10:00
tu peux utiliser gettickcount qui te donne le temps écoulé depuis le lancemet de windows en milliseconde.
donc tu fais un truc du genre
var time_start,duree:longint;
time_start := GetTickCount;
et en fin de programme
duree := GetTickCount-time_start;
duree contient le temps écoulée en millisecondes...
Marsh Posté le 27-10-2001 à 23:53:16
ouais ca devait etre un truc du genre que j'utilisais.
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Marsh Posté le 28-10-2001 à 17:48:05
function temps:real; (*donne l'heure à l'instant t, et converion sous la forme d'un nb réel*)
var h,mn,sec, sec100 :word;
begin
gettime(h,mn,sec,sec100)
temps:=h*3600+me*60+sec+sec*0.01
end;
procedure mon_programme;
begin
end;
begin
t:=temps;
mon_programme;
t:=t-temps; (*durée*)
(* conversion de la durée en h, mn et sec*)
q:=int(t/3600);
write(q);
t:=t-3600*q;
q:=int(t/60);
write(q);
t:=t-60*q;
write(t);
end.
Marsh Posté le 28-10-2001 à 19:02:41
Merci pour cette réponse pour le mons exhaustive 
[edtdd]--Message édité par saSHOCK--[/edtdd]
Sujets relatifs:
- [c++] Programme plante à la toute fin de l'execution
- qui pourrait me corriger mon programme ?
- [C++] Problèmes sur un programme de chat
- Quel programme utiliser pour programmer en Pascal ?
- Pascal... PChar ARGLLLLLLLLLLLLL pb à la con !
- Turbo Pascal pour Windows
- c'est ki ki programme en business basic hein
- [Pascal] problème de nombres ... ???
- cherche compilateur pascal sous dos, mais <> de turbopascal
Marsh Posté le 22-10-2001 à 23:26:44
merci pour vos reponses