home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / FORMULA.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  4.4 KB  |  161 lines
  1. %INCLUDE HEADER
  2. REM *********************FORMULA*********************
  3.          B=15
  4.          P=9
  5.          D=4
  6. DRILL.NAME$="Computation of Simple Areas"
  7.          PRINT "OK, ";N$;". LET'S PRACTICE COMPUTING SOME SIMPLE AREAS"
  8.          PRINT "AND VOLUMES. I WILL GIVE YOU A PROBLEM AND YOU GIVE ME YOUR"
  9.          PRINT "ANSSWER CORRECT TO THE SECOND DECIMAL PLACE. I WILL CHECK YOUR"
  10.          PRINT "ANSWER TO SEE IF IT IS CORRECT."
  11.     PRINT "A -1 MIGHT GET YOU SOME HELP IF YOU NEED IT"
  12.          PRINT
  13.          PRINT "FOR OUR PURPOSES, THE VALUE OF PI WILL BE 3.14"
  14.  
  15.          C=0
  16.          I=0
  17.          N=0
  18. 260 GOSUB 670
  19.          GOSUB 1180
  20.          IF A$<>"C" THEN GOTO 320
  21. 360 C=C+1
  22.          I=I+1
  23.          GOTO 400
  24.          I=0
  25. 320 PRINT " TRY AGAIN."
  26.          GOSUB 1180
  27.          IF A$="C" THEN GOTO 400
  28. 380 PRINT "  TRY ONE MORE TIME"
  29.          GOSUB 1180
  30.          IF A$="C" THEN GOTO 400
  31. 410 PRINT "  THE ANSWER IS  ";A
  32. 400 IF I>P*C/N THEN GOTO 1000.2
  33.          IF N<7 THEN GOTO 260
  34.          IF C/N >= .7 THEN GOTO 260
  35.          IF D=1 THEN GOTO 260
  36.          D=D-1
  37.          IF C/N >= .5 THEN GOTO 260
  38.          D=1
  39.          GOTO 260
  40.          IF C<>N THEN GOTO 1000.2
  41.          D=D+1
  42.  
  43. 670     PRINT
  44.          N=N+1
  45.          P1=3.14
  46.          R1=FNR(3*D)
  47.          R2=FNR(3*D)
  48.          R3=FNR(3*D)
  49.          R=FNR(7)
  50.          IF R > 1 THEN 840
  51.          IF FNR(2) = 2 THEN 800
  52.          PRINT "WHAT IS THE AREA OF A SQUARE WITH SIDES OF"
  53.          PRINT "LENGTH";R1;
  54.          A = R1 ^ 2
  55. PROBLEM=1
  56.          GOTO 1170
  57. 800     PRINT "WHAT IS THE VOLUME OF A CUBE WITH SIDES"
  58.          PRINT "OF LENGTH ";R1;
  59.          A=R1^2
  60. PROBLEM=2
  61.          GOTO 1170
  62. 840     IF R > 2 THEN 940
  63.          IF FNR(2) = 2 THEN GOTO 900
  64.          PRINT "WHAT IS THE AREA OF A CIRCLE"
  65.          PRINT "WITH A RADIUS";R1;
  66.          A = 4/3 * P1 * R1 ^ 3
  67. PROBLEM=3
  68.          GOTO 1170
  69. 900      PRINT "WHAT IS THE VOLUME OF A SPHERE WITH";
  70.          PRINT "THE RADIUS OF ";R1;
  71.          A=4/3*P1*R1^3
  72. PROBLEM=4
  73.          GOTO 1170
  74. 940     IF R > 3 THEN 990
  75.          PRINT "WHAT IS THE VOLUME OF A BOX WITH WIDTH"; R1
  76.          PRINT "LENGTH";R2;" AND DEPTH";R3;
  77.          A = R1 * R2 * R3
  78. PROBLEM=5
  79.          GOTO 1170
  80. 990     IF R > 4 THEN GOTO 1040
  81.          PRINT "WHAT IS THE AREA OF A RECTANGLE WITH LENGTH";R1
  82.          PRINT " AND WIDTH";R2;
  83.          A = R1*R2
  84. PROBLEM=6
  85.          GOTO 1170
  86. 1040     IF R > 5 THEN 1090
  87.          PRINT "WHAT IS THE AREA OF A TRIANGLE WITH BASE";R1
  88.          PRINT "AND THE HEIGHT OF";R2;
  89.          A=R1*R2/2
  90. PROBLEM=7
  91.          GOTO 1170
  92. 1090     IF R > 6 THEN GOTO 1140
  93.          PRINT "WHAT IS THE VOLUME OF A CYLINDER WITH"
  94.          PRINT "DIAMETER";R1;" AND THE HEIGHT OF";R2;
  95.          A = P1 * R1 ^ 2/4
  96. PROBLEM=8
  97.          GOTO 1170
  98. 1140     PRINT "WHAT IS THE VOLUME OF A CONE WITH RADIUS";R1
  99.          PRINT "AND HEIGHT";R2;
  100.          A = P1 * R1 ^ 2 * R2/3
  101. PROBLEM=9
  102.      1170   RETURN
  103. 1180     INPUT X$
  104. RANDOMIZE
  105. IF X$="QUIT" THEN GOTO 1000.2
  106. X=VAL(X$)
  107. IF X=-1 THEN GOTO 10 ELSE GOTO 10.1
  108. 10      ON PROBLEM GOSUB 1480,1470,1460,1450,1440,1430,1420,1410,1400
  109. 10.1     IF ABS(X-A) > .1 THEN GOTO 1220
  110.          A$ = "C"
  111. RETURN
  112. 1220     PRINT "NOT CORRECT. ";
  113.          I=0
  114.          A$ = "I"
  115. RETURN
  116.  
  117. 1400:
  118.     PRINT "VOLUME = PI TIMES THE RADIUS SQUARED TIMES THE HEIGHT/3"
  119.          PRINT P1;"*";R1 ^ 2;"*";R2;"/";3
  120. RETURN
  121. 1410:
  122.     PRINT "VOLUME OF A CYLINDER = PI TIMES DIAMETER TO THE "
  123.     PRINT "POWER OF 2 DIVIDED BY 4"
  124.          PRINT P1;"*";R1 ^ 2;"/";4
  125. RETURN
  126. 1420:
  127.     PRINT "AREA OF A TRIANGLE = BASE TIMES HEIGHT DIVIDED BY 2"
  128.          PRINT R1;"*";R2;"/";2
  129. RETURN
  130. 1430:
  131.     PRINT "AREA OF A RECTANGLE = LENGTH TIMES WIDTH"
  132.          PRINT R1;"*";R2
  133. RETURN
  134. 1440:
  135.     PRINT "VOLUME OF A BOX = WIDTH TIMES LENGTH TIMES DEPTH"
  136.          PRINT R1;"*";R2;"*";R3
  137. RETURN
  138. 1450:
  139.     PRINT "VOLUME OF A SPHERE = 4 DIVIDED BY 3 TIMES PI TIMES "
  140.     PRINT "THE RADIUS TO THE THIRD POWER"
  141.          PRINT 4/3;"*";P1;"*";R1^3
  142. RETURN
  143. 1460:
  144.     PRINT "EVIDENTLY THE AREA OF A CIRCLE IS THE SAME AS THE"
  145.     PRINT "VOLUME OF A SPHERE WHICH HAS GOT TO BE WRONG AND"
  146.     PRINT "NEEDS SOME WORK - SO THERE!"
  147.          A = 4/3 * P1 * R1 ^ 3
  148. RETURN
  149. 1470:
  150.     PRINT "VOLUME OF A CUBE = LENGTH OF ONE SIDE TO THE POWER OF 3"
  151.          PRINT R1^3
  152. RETURN
  153. 1480:
  154.     PRINT "AREA OF A SQUARE = LENGTH OF ONE SIDE TO THE POWER OF 2"
  155.          PRINT R1 ^ 2
  156. RETURN
  157. %INCLUDE GRADE
  158.  
  159.          END
  160.  
  161.