9.3.. Napisati program sa funkcijom za izračunavanje faktorije prirodnog broja.

Listing programa :

REM 09311016
PRINT "Faktorijel broja"
DIM n AS SINGLE: REM deklarisanje varijable
REM DIM fakt AS SINGLE
INPUT "Do broja: "; n
p = fakt(n)
PRINT n; "! = "; p

FUNCTION fakt (n AS SINGLE): REM deklarisanje funkcije - factorijel
fakt = 1
FOR i = 1 TO n
    fakt = fakt * i
NEXT i
END FUNCTION: REM Kraj funkcije

Ispis na ekranu:

Index