September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Exponentiation-operator/BASIC/exponentiation-operator-2.basic
+++ b/Task/Exponentiation-operator/BASIC/exponentiation-operator-2.basic
@ -0,0 +1,23 @@
+      PRINT "11^5 = " ; FNipow(11, 5)
+      PRINT "PI^3 = " ; FNfpow(PI, 3)
+      END
+
+      DEF FNipow(A%, B%)
+      LOCAL I%, P%
+      P% = 1
+      FOR I% = 1 TO 32
+        P% *= P%
+        IF B% < 0 THEN P% *= A%
+        B% = B% << 1
+      NEXT
+      = P%
+
+      DEF FNfpow(A, B%)
+      LOCAL I%, P
+      P = 1
+      FOR I% = 1 TO 32
+        P *= P
+        IF B% < 0 THEN P *= A
+        B% = B% << 1
+      NEXT
+      = P