7.3.. Napisati program za ispis broja dana u mjesecu, prema slijedećoj tabeli:
N a p o m e n a: Prestupna godina
- djeljiva sa 400
- djeljiva sa 4 (godina djeljiva sa 100 a ako nije djeljiva sa 400 nije prestupna)
((god MOD 4 =0)AND(NOT god MOD 100 = 0))OR(god MOD 400 = 0)
Opis rješenja: Program sadrži samo dio intervala provjere prestupnosti godina. Potpuna provjera je na kraju zadatka.
Tabela 7.13. Program mjeseci
| ** | Listing programa |
Ekran |
Opis |
1 |
PROGRAM MJESECI; |
|
|
2 |
VAR |
|
|
3 |
mjesec : 1..12; {MJESECI} |
|
|
4 |
god : 1901..2099; |
|
|
5 |
BEGIN |
|
|
6 |
WRITELN('* MJESECI * '); |
*Mjeseci* |
Naslov |
7 |
WRITE('Redni broj mjeseca:'); |
Redni broj mjeseca: |
Ulaz |
8 |
READLN(mjesec); |
9 |
Mjesec |
9 |
CASE mjesec OF |
|
Izbor 1-12 |
10 |
1,3,5,7,8,10,12:WRITELN('31 DAN'); |
|
|
11 |
2: BEGIN |
|
|
12 |
WRITE ('Godina '); |
Godina |
|
13 |
READLN (god); |
1997 |
Odluka |
14 |
IF god MOD 4 = 0 THEN |
|
|
15 |
WRITELN('Prestupna godina, 29dana') |
|
|
16 |
ELSE |
|
|
17 |
WRITELN('28 dana'); |
28 dana |
|
18 |
END; |
|
|
19 |
4,6,9,11:WRITELN('30 DANA '); |
30 dana |
|
20 |
END; |
|
|
21 |
END. |
|
Kraj programa |
Listing programa:
PROGRAM p07311009;
USES
WinCRT;
VAR
mjesec : 1..12; {MJESECI}
god : 1901..2099;
BEGIN
WRITELN('* MJESECI * ');
WRITE('Redni broj mjeseca:');
READLN(mjesec);
CASE mjesec OF
1,3,5,7,8,10,12:WRITELN('31 DAN');
2: BEGIN
WRITE ('Godina ');
READLN (god);
IF god MOD 4 = 0 THEN
WRITELN('Prestupna godina, 29dana')
ELSE
WRITELN('28 dana');
END;
4,6,9,11:WRITELN('30 DANA ');
END;
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
