Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
(→{{header|ANSI BASIC}}: Added a solution.) |
Basicgames (talk | contribs) |
||
Line 488: | Line 488: | ||
130 IF A<TA THEN 100 |
130 IF A<TA THEN 100 |
||
140 RETURN</syntaxhighlight> |
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}}=== |
==={{header|FreeBASIC}}=== |