15 lines
242 B
Text
15 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
|