26.1.. Aritmeticke operacije - dva broja. Koraci kreiranja potprograma 2. dio. Napisati program koji generiš dva broja od 1 do 9. Ispisuje generisane brojeve na ekran i očekuje da korisnik učita sumu sa tastature. Po učitavanju Ispisuje da li je odgovor tačan. Korisnik ponavlja program po vlastitoj želji.

Opis rješenja: Generisanje prirodnih brojeva se izvodi INT(RND * 9 + 1)

Listing programa:

I varijanta   Korisnik ponavlja program po vlastitoj zelji
REM 26011010
GOSUB 100: REM Inicijalizacija - na pocetku programa
30 GOSUB 130: REM Generisanja slucajnih vrijednosti dvije varijable
GOSUB 200: REM  provjera ucitane sume
INPUT "Hoces li jos (/N)"; da$
IF LEFT$(da$, 1) <> "N" THEN GOTO 30
STOP

100 REM Inicijalizacija - na pocetku programa
RANDOMIZE TIMER: REM Omogucuje nove brojeve pri svakom startanju programu
tacno = 0
preska = 0
119 RETURN: REM kraj inicijalizacije

130 REM Generisanja slucajnih vrijednosti dvije varijable
CLS
PRINT "PROVJERA SABIRANJA 1-9"
PRINT "TUTORIJAL"
PRINT "Na ekranu se pojavljuju dva broja, ucitaj njihovu sumu"
PRINT "Racunar provjerava tacnost njihove sume "

x = INT(RND * 9 + 1): REM prirodan broj 1-9
y = INT(RND * 9 + 1): REM prirodan broj 1-9
139 RETURN: REM kraj generisanja

200 REM provjera ucitane sume
PRINT x; "+"; y; " = ";
INPUT c
IF x + y = c THEN
    tacno = tacno + 1
    PRINT "Tacno"
ELSE
    greska = greska + 1
    PRINT "Zao mi je, tacan odgovor je"; x + y
END IF
PRINT "Od"; tacno + greska; " mogucih, osvojili ste"; tacno; "bodova"
219 RETURN: REM kraj provjere

END

Ispis na ekranu:

Index