Ako porovnať čas v Pascale

Pri rokovaní s časom v Pascale , môžete vypočítať množstvo času medzi dvoma udalosťami . Napríklad , možno budete chcieť skontrolovať dlho to trvá súčasťou programu spustiť , alebo vidieť , ako dlho niekto bol prihlásený alebo sledovať čas počas multiple choice test . Akonáhle budete zbierať dva rôzne časy , kódovať ich do číselnej podobe , odčítať a potom zobrazí časový rozdiel . Pokyny dovolená 1

Otvorte Pascal zdrojový súbor v textovom editore , napríklad Poznámkový blok Windows
2

Zadajte nasledujúci kód v hornej časti súboru : .

Príklad programu ;

Používa Dos ;

Používa sysutils ;

Pomocou " Dos " , poskytuje prístup k funkcii " getTime " . Pomocou " sysutils " poskytuje prístup k " EncodeTime " a funkcia " DecodeTime "
3

deklarovať premenné , ktoré budú ukladať časovej hodnoty pridaním kódu : .

Var

Hour1 , Min1 , Sec1 , HSec1 : word ;

Hour2 , min2 , Odd2 , HSec2 : word ;

Hour3 , min3 , Sec3 , MSec3 : word ;

x , y , z : TDateTime ;
4

Získajte prvýkrát na začiatku svojej funkcie pridaním kódu :

Začnite

getTime ( Hour1 , Min1 , Sec1 , HSec1 ) ;
5

Preveďte hlavného kódu svojej funkcie a potom volať " getTime " znova pridaním kódu :

getTime ( Hour2 , min2 , Odd2 , HSec2 ) ;
6

Vypočítajte rozdiel medzi týmito dvoma časmi pridaním kódu :

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

y : = EncodeTime ( Hour2 , min2 , Odd2 , 0 ) ;

z : = y - x ;

DecodeTime ( z , Hour3 , min3 , Sec3 , MSec3 ) ;

funkcie " EncodeTime " prevádza čas na " TDateTime " hodnotu , ktorá je uložená ako " double " . Kód odpočíta dvakrát a potom dekóduje výsledok do formáte vhodnom pre tlač
7

Zobrazte časový rozdiel pomocou funkcie " writeln " pridaním kódu : . ClipArt

writeln ( formát ( " Časový rozdiel = % d : % d : % d " , [ Hour3 , min3 , Sec3 ] ) ) ;

Koniec
8

Uložte súbor , skompilovať a spustiť . program pre zobrazenie času merania .

• Predchádzajúca strana: Čo je to súdržnosti v softvérovom inžinierstve ? 
• Ďalšia strana: Ako si vyrobiť kruh v LabVIEW