RosettaCodeData/Task/Exponentiation-operator/BASIC/exponentiation-operator-3.basic
2019-09-12 10:33:56 -07:00

6 lines
129 B
Text

100 DEF POW(X,Y)
110 IF X=0 THEN LET POW=0:EXIT DEF
120 LET POW=EXP(Y*LOG(X))
130 END DEF
140 PRINT POW(PI,3)
150 PRINT PI^3