Have you ever wondered, when you flip a coin, whether a coin falls more often on the head or the tail? How often would you have to flip the coin to achieve a probability of 50 percent (both sides fall equally often)?

Probability theory says it should be even but the experiment shows it rarely comes out even. This should lead into a discussion of what is the value of the theory, perhaps other than benefitting a casino?

Well, here is the program to help you out. Load the program and enter `COINFLIPS`

and the number of times, preferably not more often than 700 times. The program prints each flip and summarizes the result at the end.

- COINFLIPS.lgo
TO COINFLIPS :NUM CLEARTEXT REM [ENTER NUMBER OF COINFLIPS DESIRED BUT NOT MORE THAN MAX OF SEVEN HUNDRED] PR (SE [TOSSING A COIN] :NUM [TIMES. PLEASE WAIT...]) PR [] MANY.FLIPS :NUM 0 0 END TO MANY.FLIPS :NUM :HEADS :TAILS IF :NUM = 0 THEN PR [] PR [] PR (SE [HEADS =] :HEADS [.....] [TAILS =] :TAILS) STOP IF FLIP = "HEADS THEN PRINT "H MANY.FLIPS :NUM - 1 :HEADS + 1 :TAILS ELSE PRINT "T MANY.FLIPS :NUM - 1 :HEADS :TAILS + 1 END TO FLIP OUTPUT PICK.ONE [HEADS TAILS] END TO PICK.ONE :OBJECT ; ---------------------------------- ; picks one item from a word or list ; ---------------------------------- OUTPUT ITEM (RANDOM COUNT :OBJECT) :OBJECT END TO REM :COMMENTS END

- Procedure:
- COINFLIPS
- Description:
- Flip a coin to see how often heads or tails will fall
- Level:
- Beginner
- Compatible:
- Logo 4, Logo 5
- Tags:
- Math, Random