9.3.. Napisati program sa funkcijom za stepenovanje broja a na n-ti stepen.

Listing programa :

I varijanta koristi se operator stepenovanja
REM 09311003
DIM broj1 AS SINGLE: REM deklarisanje varijable
DIM broj2 AS SINGLE
DIM stepen AS SINGLE

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

stepen = stepenovanje(broj1, broj2)
PRINT broj1; "na"; broj2; " = "; stepen

FUNCTION stepenovanje (x AS SINGLE, y AS SINGLE) : REM deklarisanje funkcije
    stepenovanje = x ^ y: REM stepenovanje
END FUNCTION : REM Kraj funkcije

II varijanta koristi se FOR petlja i operator mnozenja
DIM broj1 AS SINGLE: REM deklarisanje varijable
DIM broj2 AS SINGLE
DIM stepen AS SINGLE
PRINT "'Stepen broja"
INPUT " ucitaj 1. broj: "; broj1
INPUT " ucitaj 2. broj: "; broj2

stepen = stepenovanje(broj1, broj2)
PRINT broj1; "na"; broj2; " = "; stepen

FUNCTION stepenovanje (x AS SINGLE, y AS SINGLE) : REM deklarisanje funkcije
    stepenovanje = 1
    FOR i = 1 TO y
        stepenovanje = stepenovanje * x
    NEXT i
END FUNCTION : REM Kraj funkcije

Ispis na ekranu:

Index