Bij het omgaan met tijd in Pascal , u berekent de hoeveelheid tijd tussen twee verschillende gebeurtenissen . Bijvoorbeeld, kan u wilt controleren lang het duurt voordat een deel van een programma te draaien , of zien hoe lang iemand is ingelogd of om de tijd te volgen tijdens een multiple choice test . Zodra u twee verschillende tijden te verzamelen , je gegevens in te voeren in een numerieke vorm , aftrekken en dan weer het tijdsverschil . Instructies
1 Open uw Pascal bronbestand in een teksteditor zoals Windows Kladblok
type 2 de volgende code aan de bovenkant van uw dossier : .
Programma Voorbeeld ;
Gebruikt Dos ;
Gebruikt sysutils ;
gebruiken " Dos " geeft toegang tot de functie " getTime " . Met behulp van " sysutils " geeft toegang tot de " EncodeTime " en " DecodeTime " functies
3 verklaren variabelen die de tijd waarden op te slaan door het toevoegen van de code : . Var
hour1 , Min1 , Sec1 , HSec1 : woord ;
Hour2 , Min2 , Sec2 , HSec2 : woord ;
Hour3 , Min3 , Sec3 , MSec3 : woord ; < br > x , y, z : TDateTime ;
4 Verkrijg de eerste keer aan het begin van uw functie door het toevoegen van de code :
begin
getTime ( hour1 , Min1 , Sec1 , HSec1 ) ;
5 Voer de belangrijkste code van uw functie en dan bellen " getTime " opnieuw door het toevoegen van de code : getTime
( Hour2 , min2 , Sec2 , HSec2 ) ;
6 Bereken het verschil tussen de twee keer door het toevoegen van de code :
x : = EncodeTime ( hour1 , Min1 , Sec1 , 0 ) ; < br > y : = EncodeTime ( Hour2 , Min2 , Sec2 , 0 ) ;
z : = y - x ; DecodeTime
( z , Hour3 , Min3 , Sec3 , MSec3 ) ;
de functie " EncodeTime " zet de tijd in een " TDateTime " waarde , die wordt opgeslagen als een "dubbele . " De code trekt het twee keer en dan decodeert het resultaat in een afdrukbaar formaat
7 Geef het tijdverschil met de functie " writeln " door het toevoegen van de code : . WriteLn
(formaat ( ' Time verschil = % d : % d : % d " , [ Hour3 , Min3 , Sec3 ] ) ) ; Einde
8 Sla uw bestand , compileren en uitvoeren . het programma om de tijd metingen geven .
|
