7 lines
124 B
QBasic
7 lines
124 B
QBasic
|
10 REM Leibniz formula for pi
|
||
|
|
20 S = 0
|
||
|
|
30 FOR I = 0 TO 999
|
||
|
|
40 S = S + (-1)^I / (2*I+1)
|
||
|
|
50 NEXT I
|
||
|
|
60 PRINT "Pi approx:"; 4*S
|