14 lines
297 B
Text
14 lines
297 B
Text
100 PROGRAM "PI.bas"
|
|
110 LET DIGITS=10
|
|
120 LET AN,PN=1
|
|
130 LET BN=SQR(.5)
|
|
140 LET TN=.5^2
|
|
150 DO WHILE PN<=DIGITS
|
|
160 LET PREVAN=AN
|
|
170 LET AN=(BN+AN)/2
|
|
180 LET BN=SQR(BN*PREVAN)
|
|
190 LET PREVAN=PREVAN-AN
|
|
200 LET TN=TN-(PN*PREVAN^2)
|
|
210 LET PN=PN+PN
|
|
220 LOOP
|
|
230 PRINT (AN+BN)^2/(TN*4)
|