home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol322 / problem1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-06-12  |  3.7 KB  |  89 lines
  1. 10  REM THIS IS PROGRAM "PERCENTS-PROBLEM1"
  2. 20  REM
  3. 30  CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  4. 35  PRINT"                               PROBLEM SOLVING #1 ":PRINT:PRINT
  5. 50  PRINT"                                  WRITTEN BY"
  6. 60  PRINT"                                            VRENDA":PRINT:PRINT:PRINT
  7. 70  INPUT"                               PRESS RETURN TO CONTINUE     ",A$
  8. 90  CLS:PRINT:PRINT:PRINT:PRINT
  9. 92   PRINT"                                MENU     ":PRINT
  10. 100  PRINT"                         1  FIND THE PERCENTAGE      ":PRINT
  11. 110  PRINT"                         2  PERCENT OF A NUMBER      ":PRINT
  12. 120  PRINT"                         3  HOW MUCH PERCENT        ":PRINT
  13. 130  PRINT"                         4  FIND THE QUANTITY     ":PRINT
  14. 140  PRINT"                         5  EXIT TO BASIC        ":PRINT
  15. 150  PRINT"                         6  EXIT TO DOS           ":PRINT
  16. 190  INPUT"                            WHICH DO YOU CHOOSE      ";A
  17. 200  ON A GOSUB 210,300,500,600,201,202 ELSE GOTO 90
  18. 201  END
  19. 202  SYSTEM
  20. 210  CLS:PRINT:PRINT:PRINT
  21. 220  PRINT"                            PERCENTAGES":PRINT:PRINT
  22. 230  PRINT"              IF 30 STUDENTS TOOK AN EXAMINATION AND 24 PASSED,":PRINT
  23. 235  PRINT"              WHAT PERCENTAGE OF THE STUDENTS PASSED THE EXAM.":PRINT
  24. 242  LET B=30:LET E=24
  25. 244  F=E/B:G=F*100
  26. 246  PRINT"              THE ANSWER IS  "F"      OR     " G  "%":PRINT
  27. 250  PRINT"              NOW IT'S YOUR CHANCE TO FILL IN THE BLANKS ":PRINT
  28. 260  INPUT"              IF ";B
  29. 262  INPUT"              STUDENTS TOOK AN EXAMINATION AND ";E
  30. 265  PRINT"              PASSED, WHAT PERCENTAGE OF THE STUDENTS PASSED THE EXAM"
  31. 266  PRINT:PRINT
  32. 272  LET F=E/B:G=F*100
  33. 274  PRINT"              THE ANSWER IS  "F"      OR      "G  "%":PRINT
  34. 280  INPUT"              CONTINUE   Y OR N ";Z$
  35. 285  IF Z$="Y" GOTO 210 ELSE IF Z$="N" GOTO 90 ELSE GOTO 280
  36. 299  LET B=0:LET E=0:LET F=0:LETG =0
  37. 300  CLS:PRINT:PRINT:PRINT
  38. 302  PRINT"                        PERCENT OF A NUMBER ":PRINT:PRINT
  39. 310  PRINT"                   IF 40% OF A NUMBER IS 250, FIND THE NUMBER.":PRINT
  40. 320  LET B=0.4:LET E=250:LET F=(E*100)/(B*100)
  41. 330  PRINT"                   THE ANSWER IS  " F:PRINT
  42. 340  PRINT"                   NOW IT IS YOUR CHANCE  "
  43. 345  PRINT:PRINT
  44. 350  INPUT"                   IF ";B
  45. 360  INPUT"                   % OF A NUMBER IS ";E
  46. 370  PRINT"                   FIND THE NUMBER. ":PRINT
  47. 380  LET B=B:LET E=E*100:LET F=(E*100)/(B*100)
  48. 390  PRINT"                   THE ANSWER IS "F:PRINT
  49. 400  INPUT"                   CONTINUE   Y OR N";A$
  50. 410  IF A$="Y" GOTO 300 ELSE IF A$="N" GOTO 90 ELSE GOTO 400
  51. 499  LET B=0:LET E=0:LET F=0
  52. 500  CLS:PRINT:PRINT:PRINT
  53. 502  PRINT"                            HOW MUCH PERCENT  ":PRINT:PRINT
  54. 510  PRINT"                      HOW MUCH IS 40% OF 540.":PRINT
  55. 512  LET B=40/100:LET E=540:LET F=B*E
  56. 514  PRINT"                      THE ANSWER IS "F:PRINT
  57. 520  PRINT"                      NOW IT'S YOUR TURN":PRINT:PRINT
  58. 525  LET B=0:LET E=0:LET F=0
  59. 530  INPUT"                      HOW MUCH IS ";B
  60. 540  INPUT"                      % OF ",E
  61. 550  LET B=B/100:F=B*E
  62. 555  PRINT"                      THE ANSWER IS  "F:PRINT
  63. 560  INPUT"                      CONTINUE  Y OR N";A$
  64. 570  IF A$="Y" GOTO 500 ELSE IF A$="N" GOTO 90 ELSE GOTO 560
  65. 580  GOTO 530
  66. 600  CLS:PRINT
  67. 610  PRINT"                            FIND THE QUANTITY"
  68. 615  PRINT"              -THIS IS THE REVERSE OF NUMBER 1 ON THE MENU-"
  69. 616  PRINT
  70. 620  PRINT"                  IF 30 PUPILS WHO TOOK AN EXAMINATION PASSED,"
  71. 625  PRINT"                  AND THESE PUPILS REPRESENT 75 PERCENT"
  72. 630  PRINT"                  OF THE PUPILS WHO TOOK THE EXAM,"
  73. 640  PRINT"                  HOW MANY PUPILS TOOK THE EXAM.":PRINT
  74. 650  LET E=75/1:LET G=30:LET H=100
  75. 660  LET G=G*H:LET E=G/E
  76. 670  PRINT"                  THE ANSWER IS  "E:PRINT
  77. 680  PRINT"                  NOW IT'S YOUR TURN"
  78. 685  PRINT"                  ENTER AT THE PROMPT AND PRESS RETURN.":PRINT
  79. 690  INPUT"                  IF ";G
  80. 692  PRINT"                  PUPILS WHO TOOK AN EXAMINATION PASSED,"
  81. 695  PRINT"                  AND THESE PUPILS"
  82. 698  INPUT"                  REPRESENT";E
  83. 700  PRINT"                  PER CENT OF THE PUPILS WHO TOOK THE EXAM."
  84. 710  PRINT"                  HOW MANY PUPILS TOOK THE EXAM.":PRINT
  85. 720  LET E=E/1:LET G=G*H:LET E=G/E
  86. 730  PRINT"                  THE ANSWER IS  "E:PRINT
  87. 740  INPUT"                  CONTINUE  Y OR N ";A$
  88. 750  IF A$="Y" GOTO 600 ELSE IF A$="N" GOTO 90 ELSE GOTO 740
  89.