Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 RANDOMIZE TIMER
- 20 DIM X AS DOUBLE
- 30 DIM Y AS DOUBLE
- 40 LET C = 0
- 50 LET N = 100000000
- 60 FOR I = 1 TO N
- 70 X = RND * (1 - (-1)) + (-1)
- 80 Y = RND * (1 - (-1)) + (-1)
- 90 IF X^2 + Y^2 <= 1 THEN
- 100 C += 1
- 110 END IF
- 120 NEXT
- 130 PRINT 4 * (C / N)
- 140 END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement