home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / autocomp.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-10  |  10.0 KB  |  52 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. Pseudo TeleVideo 910P
  3. C0000
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. w###6
  16. ##N#F*
  17. Nw#Fw
  18. q#p#6
  19. #w#w#w
  20. TRUEFALSE
  21.     N#F#s#r
  22. N#F#^#V
  23. " C}=(
  24. F+N+++V+^
  25. q#p##
  26. User break
  27. Run-time
  28.  error 
  29. , PC=
  30. Program aborted
  31. MThis is a program to calculate the probabilities in "The Collectors Problem."
  32. MThe question posed is the following:  given so many different items in a set,
  33. Iwhat is the probability of getting a complete set having acquired a given
  34. Lnumber of items?  The assumption is that the items are randomly acquired and
  35. Ethe identity of each item is independent of the previous acquisition.
  36. MPlease give the name of a file to record the results; you may print the file.
  37. 'What will be the name for this file?   
  38. MThis is a program to calculate the probabilities in "The Collectors Problem."
  39. MThe question posed is the following:  given so many different items in a set,
  40. Iwhat is the probability of getting a complete set having acquired a given
  41. Lnumber of items?  The assumption is that the items are randomly acquired and
  42. Ethe identity of each item is independent of the previous acquisition.
  43. 3 Give number in collection [zero to stop] ----->   
  44. 3 Give maximum number of aquistions ------------>   
  45.  FOR:  *
  46.  IN COLLECTION, *
  47.  ACQUISITIONS;  PROBABILITY =
  48.  FOR:  *
  49.  IN COLLECTION, *
  50.  ACQUISITIONS;  PROBABILITY =
  51.  ACQUISITIONS;  PROBABI
  52.