home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / piapprox.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-10  |  9.6 KB  |  55 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. =This program computes an approximation to pi.  The method and
  32. Bterminology follow that in Scientific American, April 1985, p. 20.
  33. @Turn the printer OFF.  Set a page to about three lines below the
  34. $top.  NOW, turn the printer back on.
  35. Did you do as instructed?   
  36. +            Pi Approximation (TURBO Pascal)
  37. 'How many shots do you want (maximum of !
  38. ) per trial?   
  39. (How many trials do you want (maximum of !
  40.  trials)?      
  41. +)]T)
  42. +)]T)
  43. +)]T)
  44.  run*
  45.     *
  46.  shots    Pi approx =
  47. +)]T)
  48.     avg. so far =!
  49. +)]T)
  50.  Over these*
  51. ! runs, the standard deviation is 
  52.  The true value of pi is!
  53.  Do you want to do this again?   
  54.  Do you want to do this again?   
  55.