Arithmetic-geometric mean: Difference between revisions
Arithmetic-geometric mean en QBasic
(Added Quackery.) |
(Arithmetic-geometric mean en QBasic) |
||
Line 331:
=={{header|BASIC}}==
==={{header|BASIC}}===
{{works with|QBasic}}
<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</lang>
{{out}}
<pre>
.8472131
</pre>
==={{header|Commodore BASIC}}===
<lang commodorebasic>10 A = 1
|