|
Lorsque vous traitez avec le temps Pascal , vous calculez la quantité de temps entre les deux événements différents . Par exemple, vous pouvez vérifier le temps qu'il fait partie d'un programme à exécuter , ou voir combien de temps quelqu'un a été connecté ou de suivre le temps lors d'un test à choix multiples. Une fois que vous collectez deux moments différents , vous encodez en une forme numérique , soustraire , puis afficher la différence de temps . Instructions
1 Ouvrez votre fichier source Pascal dans un éditeur de texte tel que le Bloc-notes Windows
2 Tapez le code suivant au début de votre fichier : .
< p> Exemple de programme ;
Utilise Dos ;
Utilise sysutils ;
utilisation de " Dos " permet d'accéder à la fonction " GetTime " . En utilisant " sysutils " permet d'accéder aux fonctions " DecodeTime " " EncodeTime " et
3 déclarer des variables qui stockent les valeurs de temps en ajoutant le code suivant: .
Var Photos hOUR1 , Min1 , Sec1 , HSec1 : mot ;
heure2 , Min2 , SEC2 HSec2 : mot ;
heure3 , Min3 , Sec3 , MSec3 : mot ; < br > x , y, z: TDateTime ;
4 Obtenir la première fois au début de votre fonction en ajoutant le code suivant:
début
GetTime ( hOUR1 , Min1 , Sec1 , HSec1 ) ;
5 Effectuer le code principal de votre fonction et ensuite appeler " GetTime " à nouveau en ajoutant le code suivant:
GetTime ( heure2 , Min2 , SEC2 HSec2 ) ;
6 calculer la différence entre les deux fois en ajoutant le code suivant:
x: = EncodeTime ( hOUR1 , Min1 , Sec1 , 0);
y: = EncodeTime ( heure2 , Min2 , Sec2 , 0);
z: = y - x ;
DecodeTime (z, heure3 , Min3 , Sec3 , MSec3 ) ;
la fonction " EncodeTime " convertit le temps en une valeur " TDateTime " , qui est stocké comme un «double». Le code soustrait les deux fois, puis décode le résultat dans un format imprimable
7 afficher le décalage horaire avec la fonction " writeln " en ajoutant le code suivant: .
Writeln (format (« décalage horaire =% d :% d :% d ', [ heure3 , Min3 , Sec3 ] ) ) ;
Fin
8 Enregistrez votre fichier , compiler et exécuter . le programme pour afficher les mesures de temps .
|
