26... Napisati program koji provjerava znanje za broj dana u mjesecu. Koristiti potprograme pri organizaciji programa.

Opis rješenja: U program je upisan broj dana u svakom mjesecu. Računar generise slučajan broj mjeseca. Igrač treba da pogodi koliko dana ima u izabranom mjesecu. Na ekranu se poslije svakog upisa broja dana pojavljuje poruka o trenutnom rezultatu, broj pogodaka i promašaja.

Opis programa: Glavni program poziva potprograme za postavljanje početnih vrijednosti (pp 200) i potprogram za izbor mjeseca i provjeru odgovora (pp 100). Izbor rednog broja mjeseca se izvodi u liniji 110 (vidi opis za generisanje slučajnog broja - naredba RND). U ovom potprogramu se učitava vrijednost odgovora i provjerava. Takođe se ispisuje i trenutni razultat.
U pp 200 se ispisuje naslov, i učitava broj dana za svaki mjesec

Spisak varijabli:
c - broj dana u izabranom mjesecu
d - broj dana u mjesecu.
i - izabrani mjesec
da$ - ponavljanje pretvaranja

Listing programa:

REM 26011480
1 REM BROJ DANA U MJESECU
10 REM Glavni program
15 DIM D(12)
16 RANDOMIZE TIMER: REM Omogucuje nove brojeve pri svakom startanju programu
20 GOSUB 200: REM početne vrijednosti
30 GOSUB 100: REM izbor i provjera odgovora
40 INPUT "Dalje (/N) "; DA$: REM dalje/kraj
50 IF LEFT$(DA$, 1) <> "N" AND LEFT$(DA$, 1) <> "n" THEN GOTO 30 
60 GOTO 299

100 REM Izbor i provjera odgovora
110 I = INT(12 * RND(1)) + 1: REM izbor mjeseca
120 C = D(I): REM broj dana u izabranom (i-tom) mjesecu
130 PRINT "Koliko dana ima "; I; ". mjesec ";
140 INPUT R
150 IF R = C THEN T = T + 1: PRINT "TACNO"
160 IF R <> C THEN BG = BG + 1: PRINT "POGRESNO ispravan rezultat je ", C
170 PRINT "Od "; T + BG; " pokusaja "; T; "je tacno, a "; BG; "je pogresno”"
180 RETURN

200 REM POČETNE VRIJEDNOSTI
210 CLS: PRINT TAB(10); "BROJ DANA U MJESECU "
220 PRINT TAB(10);
230 FOR J = 1 TO 19: PRINT "*";: NEXT J
240 PRINT
250 D(1) = 31: D(2) = 28: D(3) = 31: D(4) = 30
260 D(5) = 31: D(6) = 30: D(7) = 31: D(8) = 31
270 D(9) = 30: D(10) = 31: D(11) = 30: D(12) = 31
280 RETURN

299 END

Ispis na ekranu:

Index