När man arbetar med tiden i Pascal , beräknar du hur lång tid mellan två olika händelser . Till exempel kanske du vill kolla lång tid det tar en del av ett program för att köra , eller se hur länge någon har loggat in eller för att spåra den tid under ett flervalstest . När du samlar in två olika tider , koda du dem i en numerisk form , subtrahera och sedan visa tidsskillnaden . Instruktioner
1
Öppna din Pascal källfilen i en textredigerare som Anteckningar i Windows
2
Skriv följande kod på toppen av din fil : .
Program Exempel ,
använder Dos ,
använder sysutils ,
Använda " Dos " ger tillgång till " getTime " funktionen . Använda " sysutils " ger tillgång till " EncodeTime " och " DecodeTime " funktioner
3
Deklarera variabler som kommer att lagra de tidsvärden genom att lägga in koden : .
Var
hour1 , Min1 , Sec1 , HSec1 : ord ;
Hour2 , Min2 , sek2 , HSec2 : ord ;
Hour3 , min3 , Sec3 , MSec3 : ord ;
x , y , z : TDateTime ;
4
Få första gången i början av din funktion genom att lägga in koden :
Börja
getTime ( hour1 , Min1 , Sec1 , HSec1 ) ;
5
Utför den viktigaste koden för din funktion och sedan kallar " getTime " igen genom att lägga till koden :
getTime ( Hour2 , min2 , sek2 , HSec2 ) ;
6
Beräkna skillnaden mellan de två gånger genom att lägga till koden :
x : = EncodeTime ( hour1 , Min1 , Sec1 , 0 ),
y : = EncodeTime ( Hour2 , Min2 , sek2 , 0 ) ;
z : = y - x ,
DecodeTime ( z , Hour3 , min3 , Sec3 , MSec3 ) ;
" EncodeTime "-funktionen omvandlar tiden till en " TDateTime " värde , som lagras som en " dubbel". Koden subtraherar de två gånger och sedan avkodar resultatet till en tryckbar format
7
Visa tidsskillnaden med " writeln " funktionen genom att lägga till koden : .
Writeln ( format ( ' tidsskillnad = % d : % d : % d " , [ Hour3 , min3 , Sec3 ] ) ) ;
End
8
Spara filen , kompilera och köra . programmet för att visa tiden mätningarna .
