home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / PERCENT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.4 KB  |  93 lines
  1. %INCLUDE HEADER
  2. REM **********************PERCENT************************
  3. REM WORKING WITH PERCENTS
  4. DRILL.NAME$="Working with Percents"
  5.          PRINT
  6.          B=14
  7. 10         DEF FND(X) = INT(RND * 10 ^ X)/10 ^ FNR(X - 1)
  8.     IF FND(X)=0 THEN GOTO 10
  9.          P=9
  10.          D=4
  11.          PRINT
  12.          PRINT "OK, ";N$;". Let's practice solving some problems which"
  13.          PRINT "deal with percents.  I will give you a problem, and I want you"
  14.          PRINT "to give me your answer, which I will check."
  15.          PRINT
  16.          PRINT "your answer should be correct to the nearest humndredth."
  17.          PRINT
  18.          C=0
  19.          N=0
  20.          I=0
  21. 260 GOSUB 670
  22.          GOSUB 1000
  23.          IF A$ <> "C" THEN 320
  24.          C=C + 1
  25.          I = I + 1
  26.          GOTO 400
  27. 320  I = 0
  28.          PRINT "  TRY AGAIN."
  29.          GOSUB 1000
  30.          IF A$ = "C" THEN 400
  31.          PRINT "  TRY ONE MORE TIME."
  32.          GOSUB 1000
  33.          IF A$="C" THEN 400
  34.          PRINT "  THE ANSWER IS ";A;P$
  35. 400  IF I > P * C/N THEN 1000.2
  36.          IF N < 7 THEN 260
  37.          IF C/N >= .7 THEN 260
  38.          IF D = 1 THEN 260
  39.          D = D - 1
  40.          IF C/N >= .5 THEN 260
  41.          D = 1
  42.          GOTO 260
  43.          IF C <> N THEN 1000.2
  44.          D = D + 1
  45. 670      PRINT
  46.          N = N + 1
  47.          A = FND(FNR(D))
  48.          X = FNR(5)
  49.          IF X = 2 THEN 780
  50.          IF X = 3 THEN 820
  51.          IF X = 4 THEN 880
  52.          IF X = 5 THEN 940
  53.          PRINT " ","WHAT IS";A*100;"% EXPRESSED AS A DECIMAL";
  54.          P$ = " "
  55.          GOTO 990
  56. 780      PRINT " ",A;"IS WHAT PERCENT";
  57.          A = A * 100
  58.          P$ = "%"
  59.          GOTO 990
  60. 820      A1 = FNR(5 * D)
  61.          A2 = FNR(5 * D)
  62.          PRINT " ",A1;"IS WHAT PERCENT OF";A2;
  63.          A = INT(A1/A2 * 10^4)/100
  64.          P$ = "%"
  65.          GOTO 990
  66. 880      A1 = FND(FNR(D))
  67.          A2 = FNR(10 * D)
  68.          PRINT " ","WHAT IS";A1 * 100;"% OF";A2;
  69.          A = INT(A1 * A2 * 100)/100
  70.          P$=" "
  71.          GOTO 990
  72. 940      A = FNR(D)
  73.          A1 = FND(FNR(D))
  74.          PRINT " ",A * A1;"IS";A1 * 100;"% OF SOME NUMBER."
  75.          PRINT " ","     WHAT IS THAT NUMBER?";
  76.          P$=" "
  77. 990      RETURN
  78. 1000     INPUT LINE X$
  79. RANDOMIZE
  80. IF X$="QUIT" THEN GOTO 1000.2
  81. X=VAL(X$)
  82.          IF ABS(X-A) > .5 THEN 1040
  83.          A$ = "C"
  84. RETURN
  85. 1040 PRINT "NOT CORRECT. ";
  86.          I = 0
  87.          A$="I"
  88. RETURN
  89. %INCLUDE GRADE
  90.  
  91.          END
  92.  
  93.