8 lines
135 B
Text
8 lines
135 B
Text
10 A = 1
|
|
20 G = 1!/SQR(2!)
|
|
30 FOR I=1 TO 20 'twenty iterations is plenty
|
|
40 B = (A+G)/2
|
|
50 G = SQR(A*G)
|
|
60 A = B
|
|
70 NEXT I
|
|
80 PRINT A
|