9.3.. Naci obim kvadrata za ucitanu vrijednost (Funkcija koristi nove varijable. Pridruživanje vrijednosti funkcije u glavnom programu o = Obim(a)).

Listing programa :

REM 09351008
PRINT "Obim kvadrata"
DIM n AS SINGLE: REM deklarisanje varijable
INPUT "Stranica kvadrata: "; a

o = obim(a)
PRINT a; "Stranica a = "; a, "Obim kvadrata = ";o

FUNCTION obim(a AS SINGLE): REM deklarisanje funkcije - obim kvadrata
obim = 4 * a
END FUNCTION: REM Kraj funkcije

Ispis na ekranu:

Index