Arithmetic-geometric mean: Difference between revisions
→{{header|Commodore BASIC}}
(→{{header|ANSI BASIC}}: Added a solution.) |
Basicgames (talk | contribs) |
||
Line 488:
130 IF A<TA THEN 100
140 RETURN</syntaxhighlight>
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">let a = 1
let g = 1 / sqrt(2)
do
let t = (a + g) / 2
let g = sqrt(a * g)
let x = a
let a = t
let t = x
loopuntil a = t
print a
end</syntaxhighlight>
==={{header|FreeBASIC}}===
| |||