21 lines
222 B
Text
21 lines
222 B
Text
PROGRAM AGM
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
!$DOUBLE
|
|
|
|
PROCEDURE AGM(A,G->A)
|
|
LOCAL TA
|
|
REPEAT
|
|
TA=A
|
|
A=(A+G)/2
|
|
G=SQR(TA*G)
|
|
UNTIL A=TA
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
AGM(1.0,1/SQR(2)->A)
|
|
PRINT(A)
|
|
END PROGRAM
|