16 lines
242 B
Text
16 lines
242 B
Text
|
for pow = 2 to 6
|
||
|
|
n = 10^pow
|
||
|
|
print n, getPi(n)
|
||
|
|
next
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
function getPi(n)
|
||
|
|
incircle = 0
|
||
|
|
for throws=0 to n
|
||
|
|
scan
|
||
|
|
incircle = incircle + (rnd(1)^2+rnd(1)^2 < 1)
|
||
|
|
next
|
||
|
|
getPi = 4*incircle/throws
|
||
|
|
end function
|