RosettaCodeData/Task/Exponentiation-operator/IS-BASIC/exponentiation-operator.basic

7 lines
129 B
Plaintext

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