Código: Seleccionar todo
5 REM Funciona bien en Sam BASIC
10 LET a=1
20 LET n=1
30 LET z=0.25
40 LET g=SQR 0.5
50 LET j=1
60 LET old=0
70 IF a=old THEN GO TO 150
80 LET old=a
90 LET x=(a+g)*.5
100 LET g=SQR (a*g)
110 LET z=z-n*(x-a)^2
120 LET n=n+n
130 LET a=x
140 GO TO 70
150 PRINT a^2/z
Para quien tenga curiosidad por saber de qué va el programa, estoy intentando resolver en Sinclair BASIC tantas tareas propuestas en la web RosettaCode.org como sea capaz. Esta en concreto está descrita en http://rosettacode.org/wiki/Arithmetic- ... lculate_Pi.