9.3.. Napisati program sa funkcijom za odredjivanje najvećeg od 3 broja.

Listing programa :

I varijanta poziv iz naredbe pridruzivanja
REM 09311023
DIM broj1 AS SINGLE: REM deklarisanje varijable
DIM broj2 AS SINGLE
DIM broj3 AS SINGLE

INPUT " 1. broj: "; broj1
INPUT " 2. broj: "; broj2
INPUT " 3. broj: "; broj3
najveci = max(broj1, broj2, broj3)

PRINT "Od "; broj1; ", "; broj2; " i "; broj3; " najveci je = "; najveci

FUNCTION max (a AS SINGLE, b AS SINGLE, c AS SINGLE): REM deklarisanje funkcije
max = a: REM prvi najveci
IF b > max THEN
    max = b: REM drugi najveci
END IF
IF c > max THEN
    max = c: REM treci najveci
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
DIM broj3 AS SINGLE

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

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

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

Ispis na ekranu:

Index