Arithmetic-geometric mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 397: / Line 397: @@
 =={{header|BASIC}}==
-==={{header|BASIC}}===
-{{works with|QBasic}}
-<syntaxhighlight lang="qbasic">PRINT AGM(1, 1 / SQR(2))
-END
-FUNCTION AGM (a, g)
-    DO
-        ta = (a + g) / 2
-        g = SQR(a * g)
-        SWAP a, ta
-    LOOP UNTIL a = ta
-    AGM = a
-END FUNCTION</syntaxhighlight>
-{{out}}
-<pre>
-.8472131
-</pre>
 ==={{header|BASIC256}}===
 <syntaxhighlight lang="basic256">print AGM(1, 1 / sqr(2))
@@ Line 505: / Line 486: @@
 LET AGM=A
 END DEF</syntaxhighlight>
+==={{header|QuickBASIC}}===
+{{works with|QBasic}}
+<syntaxhighlight lang="qbasic">PRINT AGM(1, 1 / SQR(2))
+END
+FUNCTION AGM (a, g)
+    DO
+        ta = (a + g) / 2
+        g = SQR(a * g)
+        SWAP a, ta
+    LOOP UNTIL a = ta
+    AGM = a
+END FUNCTION</syntaxhighlight>
+{{out}}
+<pre>
+.8472131
+</pre>
 ==={{header|True BASIC}}===