home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol322 / problem4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-06-12  |  3.1 KB  |  68 lines
  1. 10  REM THIS IS PROGRAM "RATIOS AND PROPORTIONS" -"PROBLEM4"
  2. 20  REM
  3. 30  CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  4. 35  PRINT"                               PROBLEM SOLVING #4    ":PRINT:PRINT
  5. 50  PRINT"                               WRITTEN BY":PRINT
  6. 60  PRINT"                                            VRENDA":PRINT:PRINT
  7. 70  INPUT"                               PRESS RETURN TO CONTINUE     ",A$
  8. 90  CLS:PRINT:PRINT:PRINT
  9. 95   PRINT"                        RATIOS AND PROPORTIONS MENU      ":PRINT
  10. 100  PRINT"                        1  TRAVEL IN MILES          ":PRINT
  11. 110  PRINT"                        2  TRAVEL MORE MILES        ":PRINT
  12. 120  PRINT"                        3  MEASURE A TREE           ":PRINT
  13. 130  PRINT"                        4  EXIT TO BASIC":PRINT
  14. 140  PRINT"                        5  EXIT TO DOS  ":PRINT
  15. 190  INPUT"                           WHICH DO YOU CHOOSE      ";A
  16. 200  ON A GOSUB 210,300,400,201,202 ELSE GOTO 90
  17. 201  END
  18. 202  SYSTEM
  19. 210  CLS:PRINT:PRINT:PRINT
  20. 220  PRINT"                                TRAVEL      ":PRINT
  21. 230  PRINT"     A CAR CAN TRAVEL 112 MILES IN 2 HOURS.  AT THE SAME RATE OF "
  22. 240  PRINT"     SPEED, HOW FAR CAN IT TRAVEL IN 6 HOURS?    ":PRINT
  23. 245  LET B=112:LET C=2:LET D=6:LET X=1
  24. 246  LET B=B*D:LET Z=C*X:LET Z=B/C
  25. 247  PRINT"           THE ANSWER IS   "Z"MILES.":PRINT
  26. 250  PRINT"     NOW IT'S YOUR TURN.  ENTER AT THE PROMPT AND PRESS RETURN":PRINT
  27. 255  INPUT"     A CAR CAN TRAVEL  ";B
  28. 257  INPUT"     MILES IN  ";C
  29. 260  PRINT"     HOURS.  AT THE SAME RATE OF SPEED, HOW FAR CAN  "
  30. 265  INPUT"     IT TRAVEL IN  ",D:PRINT"       HOURS?":PRINT
  31. 270  LET B=B*D:LET Z=C*X:LET Z=B/C
  32. 275  PRINT"           THE ANSWER IS   "Z"MILES.   ":PRINT
  33. 280  INPUT"           CONTINUE  Y  OR  N   ";A$
  34. 285  IF A$="Y" GOTO 210 ELSE IF A$="N" GOTO 90 ELSE GOTO 280
  35. 300  CLS:PRINT:PRINT:PRINT
  36. 305  PRINT"                                  DISTANCES  ":PRINT
  37. 310  PRINT"          A CAR TRAVELS 120 MILES IN 3 HOURS.  AT THE SAME RATE OF "
  38. 315  PRINT"          SPEED, HOW MANY MORE MILES WILL IT TRAVEL IN THE NEXT 2 HOURS? ":PRINT
  39. 320  LET E=120:LET J=2:LET G=3:LET H=1
  40. 325  LET E=E*J:LET V=G*H:LET V=E/V
  41. 330  PRINT"                  THE ANSWER IS    "V"MILES.":PRINT
  42. 340  PRINT"          NOW IT'S YOUR TURN. ENTER AT THE PROMPT AND PRESS RETURN ":PRINT
  43. 345  INPUT"          A CAR TRAVELS  ";E
  44. 347  INPUT"          MILES IN  ";G
  45. 350  PRINT"          HOURS.  AT THE SAME RATE OF SPEED, HOW MANY MORE MILES WILL IT  "
  46. 360  INPUT"          TRAVEL IN THE NEXT  ";J:PRINT"          HOURS?":PRINT
  47. 370  LET E=E*J:LET V=G*H:LET V=E/V
  48. 380  PRINT"                  THE ANSWER IS   "V"MILES.":PRINT
  49. 390  INPUT"                  CONTINUE  Y OR N   ";A$
  50. 395  IF A$="Y" GOTO 300 ELSE IF A$="N" GOTO 90 ELSE GOTO 390
  51. 400  CLS:PRINT:PRINT:PRINT
  52. 410  PRINT"                               MEASURE A TREE":PRINT
  53. 420  PRINT"      A PERSON 5 FEET TALL CASTS A SHADOW OF 12 FEET AT THE SAME TIME"
  54. 430  PRINT"      A TREE CASTS A SHADOW OF 60 FEET.  WHAT IS THE HEIGHT OF THE TREE"
  55. 440  PRINT"      IN FEET?":PRINT
  56. 450  LET E=5:LET G=12:LET J=60:LET H=1
  57. 460  LET E=E*J:LET V=G*H:LET V=E/V
  58. 480  PRINT"                     THE ANSWER IS  "V"FEET.":PRINT
  59. 490  PRINT"      NOW IT'S YOUR TURN. ENTER AT THE PROMPT AND PRESS RETURN":PRINT
  60. 500  INPUT"      A PERSON  ";E
  61. 502  PRINT"      FEET TALL CASTS A SHADOW OF":INPUT"      ";G
  62. 510  INPUT"      FEET.  AT THE SAME TIME A TREE CASTS A SHADOW OF   ",J
  63. 515  PRINT"      FEET.  WHAT IS THE HEIGHT OF THE TREE IN FEET?":PRINT
  64. 520  LET E=E*J:LET V=G*H:LET V=E/V
  65. 530  PRINT"                     THE ANSWER IS  "V"FEET.":PRINT
  66. 540  INPUT"                    CONTINUE Y OR N  ";A$
  67. 550  IF A$="Y" GOTO 400 ELSE IF A$="N" GOTO 90 ELSE GOTO 540
  68.