Πώς να Συγκρίνετε Ώρα Pascal

Όταν ασχολούμαστε με το χρόνο σε Pascal , θα υπολογίσει το χρονικό διάστημα ανάμεσα σε δύο διαφορετικά γεγονότα . Για παράδειγμα , μπορεί να θέλετε να ελέγξετε καιρό παίρνει μέρος ενός προγράμματος για να τρέξει , ή να δείτε πόσο καιρό κάποιος έχει συνδεθεί ή να παρακολουθείτε το χρόνο κατά τη διάρκεια ενός τεστ πολλαπλών επιλογών . Μόλις συλλέξετε δύο διαφορετικές χρονικές στιγμές , μπορείτε να τα κωδικοποιήσει σε αριθμητική μορφή , να αφαιρέσετε και στη συνέχεια να εμφανίσετε τη διαφορά ώρας . Οδηγίες
Η 1

Ανοίξτε Pascal αρχείο προέλευσης σας σε ένα πρόγραμμα επεξεργασίας κειμένου, όπως το Notepad των Windows 2

Πληκτρολογήστε τον ακόλουθο κώδικα στο επάνω μέρος του αρχείου σας : .

Πρόγραμμα Παράδειγμα ?

Χρησιμοποιεί Dos ?

Χρησιμοποιεί sysutils ?

Χρησιμοποιώντας το " Dos " παρέχει πρόσβαση στη λειτουργία « GetTime " . Χρησιμοποιώντας το " sysutils " παρέχει πρόσβαση στο " EncodeTime " και " DecodeTime " λειτουργίες
εικόνων 3

Δήλωση μεταβλητών που θα αποθηκεύσει τις τιμές του χρόνου με την προσθήκη του κώδικα : .

Var

Hour1 , Min1 , Sec1 , HSec1 : λέξη?

Hour2 , min2 , Sec2 , HSec2 : λέξη?

Hour3 , Min3 , SEC3 , MSec3 : λέξη?

x , y , z : TDateTime ?
Η 4

Πάρτε την πρώτη φορά κατά την έναρξη της λειτουργίας σας με την προσθήκη του κώδικα :

Ξεκινήστε

GetTime ( Hour1 , Min1 , Sec1 , HSec1 ) ?
5

Εκτελέστε την κύρια λειτουργία του κώδικα σας και στη συνέχεια να καλέσετε " GetTime " και πάλι με την προσθήκη του κώδικα :

GetTime ( Hour2 , min2 , Sec2 , HSec2 ) ?
Η 6

Υπολογίστε τη διαφορά μεταξύ των δύο φορές με την προσθήκη του κώδικα :

x : = EncodeTime ( Hour1 , Min1 , Sec1 , 0 ) ?

y : = EncodeTime ( Hour2 , min2 , Sec2 , 0 ) ?

z : = y - x ?

DecodeTime ( z , Hour3 , Min3 , SEC3 , MSec3 ) ?

η λειτουργία " EncodeTime " μετατρέπει το χρόνο σε ένα " TDateTime " αξία, η οποία αποθηκεύεται ως ένα "διπλό ". Ο κώδικας αφαιρεί τις δύο φορές και στη συνέχεια αποκωδικοποιεί το αποτέλεσμα σε εκτυπώσιμη μορφή
Η 7

Εμφανίστε τη διαφορά ώρας με τη λειτουργία " writeln " με την προσθήκη του κώδικα : .

Writeln ( format ( « διαφορά ώρας = % d : % d : % d ' , [ Hour3 , Min3 , SEC3 ] ) ) ?

Τέλος
8

Αποθηκεύστε το αρχείο σας , μεταγλώττιση και εκτέλεση . το πρόγραμμα για να δείτε τις μετρήσεις του χρόνου .
Η
εικόνων