Potrebno
PascalABC. NET ili PascalTurbo programsko okruženje
Instrukcije
Korak 1
Dakle, prvo, otvorimo program. Stvorimo novu datoteku i odredimo dodatke. U ovom slučaju potreban nam je modul za rad s konzolom - CRT.
za ovo ćemo napisati:
koristi
CRT;
Korak 2
Označimo varijable i, s, m - varijable stvarnog tipa.
var
i, s, m: Stvarno;
Korak 3
Da biste pokrenuli program, napišite:
početi
I mi ćemo naznačiti naslov prozora konzole:
SetWindowTitle ('Štoperica');
Korak 4
Postupak TextColor tekstu dodjeljuje boju, a naredba Write prikazuje tekst na ekranu:
TextColor (LightGreen);
WriteLn ('Pritisnite Enter za pokretanje štoperice');
WriteLn ('Pritisnite ponovo da zaustavite');
Write ('Kliknite ponovo za početak');
Završni Ln prelazi u sljedeći redak.
Korak 5
Operator ReadLn unosi vrijednosti s tipkovnice, ali u ovom slučaju samo čeka da korisnik pritisne Enter:
ReadLn;
Korak 6
Pravimo beskrajnu petlju:
dok (istina) rade
početi
Konstrukcija while (true) do begin prevodi se kao: While (condition) do (). Zašto je počeo ovdje?
U ovom slučaju, potreban nam je složeni operater, što znači da se, iako je uvjet istinit, izvršava nekoliko operatora. Da nije bilo početka, onda je nakon Dok je izvršena samo jedna naredba, što bi dovelo do pogrešnog rada programa. Za završetak izjave While na kraju pišemo end.
Korak 7
Sada resetirajmo brojač:
i: = 0;
Korak 8
Sljedeća izjava prevodi se kao: dok se ne pritisne tipka do ().
iako nije pritisnut tipkom
početi
Operator ClrScr briše ekran:
ClrScr;
Korak 9
Postavili smo uvjet: ako su sekunde veće od 60, a manje od 3600 (to je neophodno da bi se, kada je vrijeme duže od jednog sata, program ispisalo samo ono što je iza trećeg if), tada:
ako (i> 60) i (i <3600) tada počinju
Varijabla m (minute) jednaka je: sekundama podijeljenim sa 60 i zaobljenim naprijed.
m: = Int (i / 60);
A varijabla s (sekunde bez minuta) jednaka je: sve sekunde minus minute pomnožene sa 60.
s: = i - m * 60;
Korak 10
Naredba Write zapisuje koliko je minuta i sekundi prošlo, a završna naredba završava rad početka slijedeći uvjet if:
Napišite (m, 'minute i', s: 1: 2, 'sekunde)')
kraj;
Funkcija: 1: 2 znači da sekunde treba pisati s dvije decimale.
Korak 11
Ako su sekunde manje od 60, samo napišite koliko je sekundi prošlo sa dvije decimale:
ako je i <60 onda
Napišite ('', i: 1: 2, 'sekunde (a / s)');
Korak 12
Ako su sekunde duže od 3600 (odnosno više od jednog sata), tada:
ako sam> 3600, onda počnite
m: = Int (i / 60);
s: = i - m * 60;
ch: = Int (m / 60);
m: = m - ch * 60;
Napišite (ch, 'sat (i)', m, 'minute (i) i', s: 1: 2, 'sekunde (s)');
kraj;
Korak 13
Dakle, program je napisao da je prošlo 0 sekundi, sada povećava brojač i za 10 milisekundi, a budući da program sve radi trenutno, odgađamo za isto vrijeme:
i: = i + 0,01;
Kašnjenje (10);
Dalje, završavamo izjavu Dok (nije pritisnuta tipkom):
kraj;
Ako je korisnik pritisnuo tipku Enter, tada program čeka da je ponovo pritisne za ponovno pokretanje štoperice:
Readln;
Readln;
Nije slučajno da smo brojač postavili na nulu nakon izraza While (true), jer kada korisnik pritisne Enter drugi put, program će se pokrenuti odatle, resetirati brojač i ponovo početi brojati.
Dalje, završavamo program While i za čitav program:
kraj;
Korak 14
Evo kompletnog programa:
koristi
CRT;
var
i: Stvarno;
s: Real;
m: Real;
ch: Real;
početi
SetWindowTitle ('Štoperica');
TextColor (LightGreen);
WriteLn ('Pritisnite Enter za pokretanje štoperice');
WriteLn ('Pritisnite ponovo da zaustavite');
Write ('Kliknite ponovo za početak');
ReadLn;
dok (istina) rade
početi
i: = 0;
iako nije pritisnut tipkom
početi
ClrScr;
ako (i> 60) i (i <3600) tada počinju
m: = Int (i / 60);
s: = i - m * 60;
Napišite (m, 'minute i', s: 1: 2, 'sekunde)')
kraj;
ako je i <60 onda
Napišite ('', i: 1: 2, 'sekunde (a / s)');
ako sam> 3600, onda počnite
m: = Int (i / 60);
s: = i - m * 60;
ch: = Int (m / 60);
m: = m - ch * 60;
Napišite (ch, 'sat (i)', m, 'minute (i) i', s: 1: 2, 'sekunde (s)');
kraj;
i: = i + 0,01;
Kašnjenje (10);
kraj;
Readln;
Readln;
kraj;
kraj.
Korak 15
Ispalo je ne baš lijepo, ali program radi korektno!
