Beim Umgang mit der Zeit in Pascal , berechnen Sie die Zeit zwischen zwei verschiedenen Veranstaltungen. Zum Beispiel können Sie überprüfen möchten lange es Teil eines Programms nimmt zu laufen, oder sehen, wie lange jemand in protokolliert wurde oder die Zeit während eines Multiple-Choice- Test zu verfolgen. Sobald Sie zwei unterschiedliche Zeiten sammeln , kodieren Sie sie in eine numerische Form , subtrahieren und zeigt dann die Zeitdifferenz . Anleitung
1

Öffnen Sie Pascal Quelldatei in einem Texteditor wie Windows Notepad
2

Geben Sie den folgenden Code am Anfang der Datei : .
< p> Programm Beispiel ;

verwendet Dos ;

verwendet sysutils ;

Mit " Dos " bietet Zugriff auf den " GetTime "-Funktion . Mit " sysutils " bietet Zugriff auf den " EncodeTime " und " DecodeTime " Funktionen
3

Variablen deklarieren , die die Zeitwerte , indem Sie den Code speichert : .

Var

hour1 , Min1 , Sec1 , HSec1 : word;

Stunde2 , Min2 , Sec2 , HSec2 : word;

Stunde3 , Min3 , Sec3 , MSec3 : word;

x , y, z: TDateTime ;
4

Holen Sie sich das erste Mal am Anfang Ihrer Funktion , indem Sie den Code :

Begin

GetTime ( hour1 , Min1 , Sec1 , HSec1 );
5

Führen Sie die Haupt-Code Ihrer Funktion und rufen dann " GetTime " wieder , indem Sie den Code eingeben:

GetTime ( Stunde2 , min2 , Sec2 , HSec2 );
6

Berechnen Sie die Differenz zwischen den beiden Zeiten , indem Sie den Code :

x : = EncodeTime ( hour1 , Min1 , Sec1 , 0);

y: = EncodeTime ( Stunde2 , Min2 , Sec2 , 0);

z: = y - x ;

DecodeTime (z, Stunde3 , Min3 , Sec3 , MSec3 ) ;

" EncodeTime "-Funktion wandelt die Zeit in eine " TDateTime "-Wert , der als gespeicherte "zu verdoppeln. " Der Code subtrahiert die zwei Mal und decodiert dann das Ergebnis in einem druckbaren Format
7

Anzeige der Zeitdifferenz mit dem " writeln "-Funktion , indem Sie den Code eingeben: .

Writeln ( Format ( " Zeitdifferenz =% d :% d :% d ', [ Stunde3 , Min3 , Sec3 ] ) );

End
8

Speichern Sie die Datei , kompilieren und ausführen . das Programm , um die Zeitmessung zu sehen.