Hvordan man kan sammenligne Tid i Pascal

Når du arbeider med tid i Pascal, kan du beregne hvor lang tid mellom to forskjellige hendelser. For eksempel kan det være lurt å sjekke lang tid det tar en del av et program for å kjøre, eller se hvor lenge noen har vært logget på eller for å spore den tiden i løpet av en flervalgstest. Når du samler to forskjellige tider, kode du dem inn i en numerisk form, subtrahere og deretter vise tidsforskjellen.

Bruksanvisning

1 Åpne Pascal kildefilen i et tekstredigeringsprogram, for eksempel Windows Notisblokk.

2 Skriv inn følgende kode på toppen av filen:

Program Eksempel;

Bruker Dos;

Bruker sysutils;

Ved hjelp av "Dos" gir tilgang til "getTime" -funksjonen. Bruk av "sysutils" gir tilgang til "EncodeTime" og "DecodeTime" funksjoner.

3 Erklærer variabler som vil lagre tidsverdiene ved å legge inn koden:

Var

Time1, Min1, Sec1, HSec1: ord;

Hour2, Min2, Sek2, HSec2: ord;

Hour3, Min3, Sec3, MSec3: ord;

x, y, z: TDateTime;

4 Få første gang på begynnelsen av funksjon ved å legge inn koden:

Begynne

GetTime (time1, Min1, Sec1, HSec1);

5 Utfør den viktigste koden for funksjonen og deretter kaller "getTime" igjen ved å legge inn koden:

GetTime (Hour2, Min2, Sek2, HSec2);

6 Beregne forskjellen mellom de to ganger ved å legge koden:

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

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

z: = y - x;

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

Den "EncodeTime" funksjonen konverterer den tid inn i en "TDateTime" -verdi, som er lagret som en "dobbel". Koden trekker de to ganger og deretter dekoder resultatet i et utskriftsvennlig format.

7 Vise tidsforskjellen med "writeln" -funksjonen ved å legge inn koden:

Writeln (format ( 'Tidsforskjell =% d:% d:% d', [Hour3, Min3, Sec3]));

Slutt.

8 Lagre filen, kompilere og kjøre programmet for å vise tidsmålinger.