Quando si tratta con il tempo in Pascal , si calcola la quantità di tempo che intercorre tra due eventi diversi . Ad esempio, si consiglia di controllare il tempo necessario nell'ambito di un programma da eseguire , o di vedere quanto tempo qualcuno è stato effettuato l'accesso o per tenere traccia del tempo durante un test a scelta multipla . Una volta che si raccolgono due momenti diversi , li codifica in un formato numerico , sottrarre e quindi visualizzare la differenza di tempo . Istruzioni
1

Aprire il file sorgente Pascal in un editor di testo come Blocco note di Windows
2

Digitare il seguente codice nella parte superiore del file : .
< p > Esempio di programma ;

Usi Dos ;

Usi sysutils ;

Uso di " Dos " consente di accedere alla funzione " GetTime " . Utilizzando " sysutils " consente di accedere alla funzioni " DecodeTime " " EncodeTime " e
3

dichiarare le variabili in cui verranno archiviati i valori di tempo aggiungendo il codice : .

Var

all'ora1 , Min1 , Sec1 , HSec1 : parola ;

Hour2 , Min2 , Sec2 , HSec2 : parola ;

Hour3 , Min3 , SEC3 , MSec3 : parola ; < br >

x , y , z : TDateTime ;
4

Come la prima volta , all'inizio della vostra funzione con il codice :

Begin

GetTime ( all'ora1 , Min1 , Sec1 , HSec1 ) ;
5

Eseguire il codice principale della vostra funzione e quindi chiamare " GetTime " di nuovo con il codice :

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

Calcola la differenza tra i due tempi con il codice :

x : = EncodeTime ( all'ora1 , Min1 , Sec1 , 0 ) ;

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

z: = y - x ;

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

la funzione " EncodeTime " converte il tempo in un valore " TDateTime " , che viene memorizzato come un "doppio ". Il codice sottrae due volte e poi decodifica il risultato in un formato stampabile
7

Visualizzare la differenza di tempo con la funzione " writeln " aggiungendo il codice : .

Writeln ( formato ( ' differenza di tempo = % d : % d : % d ' , [ Hour3 , Min3 , SEC3 ] ) ) ;

Fine
8

Salvare il file , compilare ed eseguire . il programma per visualizzare le misure di tempo .