Keskustelu: Koodit: QB: Funktioita QBASICille

DECLARE FUNCTION pow! (luku AS INTEGER, exponentti AS INTEGER)
CLS
DIM luku AS INTEGER  'integeriin ei mahdu paljoa, joten 10^10 korotukset eivät onnistu
DIM exponentti AS INTEGER

PRINT "POW-funktio"
INPUT "Syötä luku: ", luku
INPUT "Syötä exponentti: ", exponentti

vastaus = pow(luku, exponentti) 'Kutsutaan funktiota "POW"

PRINT vastaus 'Tulostetaan vastaus

END

FUNCTION pow (luku AS INTEGER, exponentti AS INTEGER)
DIM vluku AS INTEGER
vluku = luku 'Sijoitetaan vluku-muuttujaa luku-muuttujan arvo.

DO
 luku = luku * vluku 'Suoritetaan korotus
 exponentti = exponentti - 1
LOOP UNTIL exponentti <= 1

pow = luku 'Palautetaan arvo
END FUNCTION