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
|
|