9.3.. Napisati program sa funkcijom za odredjivanje manjeg od 2 broja.

Listing programa :

I varijanta koristi se operator stepenovanja
REM 09320031
DIM broj1 AS SINGLE: REM deklarisanje varijable
DIM broj2 AS SINGLE
DIM manji AS SINGLE

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

manji = min(broj1, broj2)
PRINT "Od "; broj1; " i "; broj2; " manji je = "; manji

FUNCTION min (a AS SINGLE, b AS SINGLE): REM deklarisanje funkcije
IF a < b THEN
    min = a: REM prvi manji
ELSE
    min = b: REM drugi manji
END IF
END FUNCTION: REM Kraj funkcije


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

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

PRINT "Od "; broj1; " i "; broj2; " manji je = "; min(broj1, broj2)

FUNCTION min (a AS SINGLE, b AS SINGLE): REM deklarisanje funkcije
IF a < b THEN
    min = a: REM prvi manji
ELSE
    min = b: REM drugi manji
END IF
END FUNCTION: REM Kraj funkcije

Ispis na ekranu:

Index