Gewusst wie: Vergleichen Sie mal in Pascal

Beim Umgang mit Zeit in Pascal, berechnen Sie die Zeitspanne zwischen zwei verschiedenen Ereignissen. Beispielsweise sollten Sie lange zu überprüfen, dass es nimmt Teil eines Programms zu führen, oder sehen, wie lange jemand angemeldet worden ist oder die Zeit während einer multiple-Choice-Test zu erfassen. Sobald Sie zu zwei verschiedene Zeitpunkten sammeln, in eine numerische Form zu codieren, subtrahieren und zeigen Sie dann den Unterschied.

Anweisungen

1 Öffnen Sie Ihre Pascal-Quellcode-Datei in einem Texteditor wie Windows Notepad.

2 Geben Sie den folgenden Code am oberen Rand der Datei:

Programmbeispiel;

Dos verwendet;

Sysutils verwendet;

Mit "Dos" ermöglicht den Zugriff auf die "GetTime"-Funktion. Mit "Sysutils" ermöglicht den Zugriff auf die Funktionen "EncodeTime" und "DecodeTime".

3 Deklarieren von Variablen, die die Zeitwerte speichern werden durch Hinzufügen des Codes:

Var

Stunde1 Min1, S1, HSec1: Wort;

Hour2, Min2, S2, HSec2: Wort;

Hour3, Min3, Sec3, MSec3: Wort;

X, y, Z: TDateTime;

4 Steigen Sie zum erste Mal am Anfang Ihrer Funktion durch Hinzufügen des Codes:

BEGIN

GetTime (Stunde1, Min1, S1, HSec1);

5 Führen Sie den Hauptcode Ihrer Funktion und rufen Sie dann erneut "GetTime" durch Hinzufügen des Codes:

GetTime (Hour2, Min2, S2, HSec2);

6 Berechnen Sie die Differenz zwischen den beiden Zeitangaben durch Hinzufügen des Codes:

X: = EncodeTime (Stunde1, Min1, S1, 0);

y: = EncodeTime (Hour2, Min2, S2, 0);

Z: = y - X;

DecodeTime (Z, Hour3, MSec3, Min3, Sec3);

Die "EncodeTime"-Funktion wandelt die Zeit in einer "TDateTime", die als ein "Double" gespeichert ist Der Code Subtrahiert zwei Mal und dann das Ergebnis in einem druckbaren Format decodiert.

7 Zeigen Sie den Unterschied mit der Funktion "Writeln" durch Hinzufügen des Codes:

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

Ende.

8 Speichern Sie die Datei, kompilieren Sie und führen Sie das Programm zum Anzeigen der Zeitmessungen.