RosettaCodeData/Task/Exponentiation-operator/IS-BASIC/exponentiation-operator.basic
2023-07-01 13:44:08 -04: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