26.2.. Aritmeticke operacije - dva broja. 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. Postupak se ponavlja 10 puta.

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

Listing programa:

REM 26011020
CLS

PRINT "PROVJERA ODUZIMANJA 1-9"
PRINT "TUTORIJAL"
PRINT "Na ekranu se pojavljuju dva broja, ucitaj njihovu razliku"
PRINT "Racunar provjerava tacnost njihove razlike "

RANDOMIZE TIMER: REM Omogucuje nove brojeve pri svakom startanju programu

tacno = 0
FOR i = 1 TO 11
    x = INT(RND * 9 + 1): REM prirodan broj 1-9
    y = INT(RND * 9 + 1): REM prirodan broj 1-9
    PRINT x; "-"; y; " = ";
    INPUT c
    IF x - y = c THEN
        tacno = tacno + 1
        PRINT "Tacno! Imas "; tacno; " bodova"
    ELSE
        PRINT "Zao mi je, tacan odgovor je"; x + y
    END IF
NEXT i
PRINT "od 10 mogucih, osvojili ste", tacno, "bodova"
END

Ispis na ekranu:

Index