Nødvendig
PascalABC. NET eller PascalTurbo programmeringsmiljø
Bruksanvisning
Trinn 1
Så, først, la oss åpne programmet. La oss opprette en ny fil og spesifisere plugins. I dette tilfellet trenger vi en modul for å jobbe med konsollen - CRT.
for dette vil vi skrive:
bruker
CRT;
Steg 2
La oss indikere variablene i, s, m - variabler av den virkelige typen.
var
i, s, m: Ekte;
Trinn 3
For å starte programmet, skriv:
begynne
Og vi vil indikere tittelen på konsollvinduet:
SetWindowTitle ('Stoppeklokke');
Trinn 4
TextColor-prosedyren tildeler en farge til teksten, og Skriv-setningen viser teksten til skjermen:
TextColor (LightGreen);
WriteLn ('Trykk Enter for å starte stoppeklokken');
WriteLn ('Trykk igjen for å stoppe');
Skriv ('Klikk igjen for å starte på nytt');
Slutten Ln går til neste linje.
Trinn 5
ReadLn-operatøren skriver inn verdier fra tastaturet, men i dette tilfellet venter det bare på at brukeren skal trykke Enter:
LesLn;
Trinn 6
Vi lager en endeløs løkke:
mens (sant) gjør
begynne
Mens mens (sant) begynner å konstruere, oversettes det som: Mens (tilstand) gjør (). Hvorfor begynner du her?
I dette tilfellet trenger vi en sammensatt operatør, noe som betyr at mens tilstanden er oppfylt, blir flere operatører utført. Hvis det ikke var for begynnelsen, ble det bare en uttalelse utført etter While, noe som ville føre til feil programdrift. For å avslutte While-setningen på slutten, skriver vi enden.
Trinn 7
La oss nå tilbakestille telleren:
i: = 0;
Trinn 8
Følgende påstand oversettes som: til do () -tasten trykkes.
mens ikke tastetrykk gjør
begynne
ClrScr-operatøren tømmer skjermen:
ClrScr;
Trinn 9
Vi setter tilstanden: Hvis sekundene er mer enn 60 og mindre enn 3600 (dette er nødvendig slik at når tiden er mer enn en time, skriver programmet bare ut det som er etter den tredje hvis), så:
hvis (i> 60) og (i <3600) så begynn
Variabelen m (minutter) er lik: sekunder delt på 60 og avrundet foran.
m: = Int (i / 60);
Og variabelen s (sekunder uten minutter) er lik: alle sekunder minus minutter multiplisert med 60.
s: = i - m * 60;
Trinn 10
Skriv uttalelsen skriver hvor mange minutter og sekunder som har gått, og sluttuttalelsen avslutter arbeidet med begynnelsen etter if-tilstanden:
Skriv (m, 'minutter (er) og', s: 1: 2, 'sekunder (s)')
slutt;
Funksjon: 1: 2 betyr at sekunder skal skrives med to desimaler.
Trinn 11
Hvis sekundene er mindre enn 60, er det bare å skrive hvor mange sekunder som har gått med to desimaler:
hvis jeg <60 da
Skriv ('', i: 1: 2, 'sekunder (a / s)');
Trinn 12
Hvis sekundene er mer enn 3600 (det vil si mer enn en time) så:
hvis jeg> 3600 så begynn
m: = Int (i / 60);
s: = i - m * 60;
ch: = Int (m / 60);
m: = m - ch * 60;
Skriv (ch, 'time (s)', m, 'minutes (s) and', s: 1: 2, 'seconds (s)');
slutt;
Trinn 13
Så, programmet skrev at 0 sekunder har gått, nå øker det telleren i med 10 millisekunder, og siden programmet gjør alt umiddelbart, gjør vi en forsinkelse for samme tid:
i: = i + 0,01;
Forsinkelse (10);
Deretter slutter vi med uttalelsen While (ikke tastetrykk):
slutt;
Hvis brukeren trykket på Enter-tasten, venter programmet på at han trykker på den igjen for å starte stoppeklokken igjen:
Readln;
Readln;
Det er ikke tilfeldig at vi setter telleren til null etter While (true) uttalelsen, for når brukeren trykker Enter en gang til, vil programmet starte derfra, nullstille telleren og begynne å telle igjen.
Deretter avslutter vi While og for hele programmet:
slutt;
Trinn 14
Her er det komplette programmet:
bruker
CRT;
var
jeg: Ekte;
s: Ekte;
m: Ekte;
ch: Ekte;
begynne
SetWindowTitle ('Stoppeklokke');
TextColor (LightGreen);
WriteLn ('Trykk Enter for å starte stoppeklokken');
WriteLn ('Trykk igjen for å stoppe');
Skriv ('Klikk igjen for å starte på nytt');
LesLn;
mens (sant) gjør
begynne
i: = 0;
mens ikke tastetrykk gjør
begynne
ClrScr;
hvis (i> 60) og (i <3600) så begynn
m: = Int (i / 60);
s: = i - m * 60;
Skriv (m, 'minutter (er) og', s: 1: 2, 'sekunder (s)')
slutt;
hvis jeg <60 da
Skriv ('', i: 1: 2, 'sekunder (a / s)');
hvis jeg> 3600 så begynn
m: = Int (i / 60);
s: = i - m * 60;
ch: = Int (m / 60);
m: = m - ch * 60;
Skriv (ch, 'time (s)', m, 'minutes (s) and', s: 1: 2, 'seconds (s)');
slutt;
i: = i + 0,01;
Forsinkelse (10);
slutt;
Readln;
Readln;
slutt;
slutt.
Trinn 15
Det ble ikke veldig hyggelig, men programmet fungerer riktig!
