9.3.. Napisati program sa funkcijom za odredjivanje većeg od 2 broja.

Listing programa :

I varijanta poziv iz naredbe pridruzivanja
REM 09311026
DIM broj1 AS SINGLE: REM deklarisanje varijable
DIM broj2 AS SINGLE
DIM veci AS SINGLE

INPUT " 1. broj: "; broj1
INPUT " 2. broj: "; broj2

veci = max(broj1, broj2)
PRINT "Od "; broj1; " i "; broj2; " veci je = "; veci

FUNCTION max (a AS SINGLE, b AS SINGLE): REM deklarisanje funkcije
IF a > b THEN
    max = a: REM prvi veci
ELSE
    max = b: REM drugi veci
END IF
END FUNCTION: REM Kraj funkcije


II varijanta poziv funkcije iz naredbe ispisa
DIM broj1 AS SINGLE: REM deklarisanje varijable
DIM broj2 AS SINGLE

INPUT " 1. broj: "; broj1
INPUT " 2. broj: "; broj2

PRINT "Od "; broj1; " i "; broj2; " veci je = "; max(broj1, broj2)

FUNCTION max (a AS SINGLE, b AS SINGLE): REM deklarisanje funkcije
IF a > b THEN
    max = a: REM prvi veci
ELSE
    max = b: REM drugi veci
END IF
END FUNCTION: REM Kraj funkcije

Ispis na ekranu:

Index