Birthday

Developer(s): Gene G. Buza
Date: October 1982
Type: Program
Platform(s): TS 1000

Appears on

Synchro-Sette October 1982
Cassette to accompany the October 1982 issue of Synchro-Sette.

Source Code

  10 PRINT ,,"PROGRAM TO DETERMINE THE NUMBER OF PEOPLE NEEDED TO HAVE AT     LEAST 50 PERCENT PROBABILITY OF HAVING TWO OR MORE WITH THE SAMEBIRTHDAY."
  20 LET Q=1
  30 FOR N=1 TO 60
  40 SCROLL 
  50 PRINT N,-(100*(Q-1))
  60 LET Q=Q*(365-N)/365
  70 NEXT N

Tags

People

Scroll to Top