Advertisement
Guest User

Untitled

a guest
Dec 18th, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 X = RND(-TI)
  2.  
  3. 20 T = 0 : REM Times where gold was picked first
  4. 30 G = 0 : REM Times where gold was also picked second
  5.  
  6.  
  7. 40 FOR X = 0 TO 100000
  8. 50 D1 = INT(RND(1)*3)+1 : REM Which bag?
  9. 70 IF D1 = 1 THEN 100 : REM Chose first bag
  10. 80 IF D1 = 2 THEN 200 : REM Chose second bag
  11. 90 GOTO 250           : REM Chose third bag
  12. 100  T = T + 1
  13. 110  G = G + 1        : REM First bag, both are gold gold
  14. 120  GOTO 250
  15.  
  16. 200 D2 = INT(RND(1)*2)+1 : REM Pick ball
  17. 210 IF D2 = 2 THEN 250   : REM Took a silver ball
  18. 220 T = T + 1            : REM Took a gold ball
  19. 250 NEXT
  20.  
  21. 300 PRINT G/T
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement