Advertisement
Guest User

Untitled

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