# Coin Flips

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 |

Tags | Math, Random |