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

7 lines
129 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
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