13 lines
319 B
Text
13 lines
319 B
Text
PRINT FNmontecarlo(1000)
|
|
PRINT FNmontecarlo(10000)
|
|
PRINT FNmontecarlo(100000)
|
|
PRINT FNmontecarlo(1000000)
|
|
PRINT FNmontecarlo(10000000)
|
|
END
|
|
|
|
DEF FNmontecarlo(t%)
|
|
LOCAL i%, n%
|
|
FOR i% = 1 TO t%
|
|
IF RND(1)^2 + RND(1)^2 < 1 n% += 1
|
|
NEXT
|
|
= 4 * n% / t%
|