home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / medi / mathchek.bas < prev    next >
BASIC Source File  |  1990-10-01  |  4KB  |  98 lines
  1. 10 REM math corrector by Kenneth H. Mimlitch
  2. 20 CLS:WIDTH 40
  3. 30 GOSUB 6000
  4. 100 REM display menu
  5. 110 PRINT"MATH CHECKER"
  6. 140 PRINT:PRINT"1-ADDITION (two numbers)"
  7. 150  PRINT"2-ADDITION (more than two numbers)
  8. 160  PRINT"3-SUBTRACTION
  9. 170  PRINT"4-MULTIPICATION"
  10. 180  PRINT"5-DIVISION"
  11. 182  PRINT"6-SET TO INTEGERS
  12. 184  PRINT"7-SET TO FLOATING POINT"
  13. 186  PRINT"8-FACTOR"
  14. 187  PRINT"9-COMMON FACTORS"
  15. 188  PRINT"10-GREATEST COMMON FACTOR"
  16. 189  PRINT"11-GREATEST COMMON DENOMINATOR"
  17. 190 PRINT:INPUT"WHAT TYPE OF PROBLEM DO YOU HAVE";TYPE
  18. 200 IF TYPE<1 OR TYPE>7 THEN CLS:GOTO 110
  19. 210 ON TYPE GOSUB 1000,2000,3000,4000,5000,6000,7000,800,900,10000,11000
  20. 220 INPUT"CHECK ANOTHER TYPE";A$
  21. 230 IF LEFT$(A$,1)="Y" THEN CLS:GOTO 110 ELSE END
  22. 1000 REM check addition of two numbers
  23. 1010 CLS
  24. 1020 PRINT:PRINT:PRINT"ADDITION"
  25. 1022 LOCATE 7,10 :PRINT"                 FIRST NUMBER"
  26. 1025 LOCATE 9,8  :PRINT"+                  SECOND NUMBER"
  27. 1027 LOCATE 10,10 :PRINT"────────────────"
  28. 1030 LOCATE 20,1 :INPUT"FIRST  NUMBER";NO1
  29. 1040 LOCATE 7,10:PRINT USING DEC$;NO1
  30. 1050 LOCATE 21,1 :INPUT"SECOND NUMBER";SN
  31. 1060 LOCATE 9,10:PRINT USING DEC$;SN
  32. 1070 LOCATE 22,1 :INPUT"ANSWER       ";AN
  33. 1080 LOCATE 11,10:PRINT USING DEC$;AN;
  34. 1090 IF NO1+SN=AN THEN PRINT" RIGHT" ELSE PRINT" WRONG"
  35. 1100 LOCATE 23,1:INPUT "ANOTHER ADDITION PROBLEM";A$
  36. 1110 IF LEFT$(A$,1)="Y" THEN 1000 ELSE RETURN
  37. 3000 REM check subtraction of two numbers
  38. 3010 CLS
  39. 3020 PRINT:PRINT:PRINT"SUBTRACTION"
  40. 3022 LOCATE 7,10 :PRINT"                 FIRST NUMBER"
  41. 3025 LOCATE 9,8  :PRINT"-                  SECOND NUMBER"
  42. 3027 LOCATE 10,10 :PRINT"────────────────"
  43. 3030 LOCATE 20,1 :INPUT"FIRST  NUMBER";NO1
  44. 3040 LOCATE 7,10:PRINT USING DEC$;NO1
  45. 3050 LOCATE 21,1 :INPUT"SECOND NUMBER";SN
  46. 3060 LOCATE 9,10:PRINT USING DEC$;SN
  47. 3070 LOCATE 22,1 :INPUT"ANSWER       ";AN
  48. 3080 LOCATE 11,10:PRINT USING DEC$;AN;
  49. 3090 IF NO1-SN=AN THEN PRINT" RIGHT" ELSE PRINT" WRONG"
  50. 3100 LOCATE 23,1:INPUT "ANOTHER SUBTRACTION PROBLEM";A$
  51. 3110 IF LEFT$(A$,1)="Y" THEN 3000 ELSE RETURN
  52. 4000 REM check multiplication of two numbers
  53. 4010 CLS
  54. 4020 PRINT:PRINT:PRINT"MULTIPICATION"
  55. 4022 LOCATE 7,10 :PRINT"                 FIRST NUMBER"
  56. 4025 LOCATE 9,8  :PRINT"*                  SECOND NUMBER"
  57. 4027 LOCATE 10,10 :PRINT"────────────────"
  58. 4030 LOCATE 20,1 :INPUT"FIRST  NUMBER";NO1
  59. 4040 LOCATE 7,10:PRINT USING DEC$;NO1
  60. 4050 LOCATE 21,1 :INPUT"SECOND NUMBER";SN
  61. 4060 LOCATE 9,10:PRINT USING DEC$;SN
  62. 4070 LOCATE 22,1 :INPUT"ANSWER       ";AN
  63. 4080 LOCATE 11,10:PRINT USING DEC$;AN;
  64. 4090 IF NO1*SN=AN THEN PRINT" RIGHT" ELSE PRINT" WRONG"
  65. 4100 LOCATE 23,1:INPUT "ANOTHER MULTIPLICATION PROBLEM";A$
  66. 4110 IF LEFT$(A$,1)="Y" THEN 4000 ELSE RETURN
  67. 5000 REM check multiplication of two numbers
  68. 5010 CLS
  69. 5020 PRINT:PRINT:PRINT"MULTIPICATION"
  70. 5025 LOCATE 10,12:PRINT"┌───────────
  71. 5027 LOCATE 11,12 :PRINT"│"
  72. 5030 LOCATE 20,1 :INPUT"NUMERATOR";NO1%
  73. 5040 LOCATE 11,13:PRINT NO1%
  74. 5050 LOCATE 21,1 :INPUT"DENOMINATOR";SN%
  75. 5060 LOCATE 11,1:PRINT USING DEC$;SN%
  76. 5070 LOCATE 22,1 :INPUT"ANSWER       ";AN%:INPUT"REMAINDER";RE%
  77. 5080 LOCATE  9,(13+LEN(STR$(NO1%))-LEN(STR$(AN%))):PRINT AN%;" R";RE%;
  78. 5090 IF NO1%\SN%=AN% AND NO1% MOD SN%=RE% THEN PRINT" RIGHT" ELSE PRINT" WRONG"
  79. 5100 LOCATE 23,1:INPUT "ANOTHER DIVISION PROBLEM";A$
  80. 5110 IF LEFT$(A$,1)="Y" THEN 5000 ELSE RETURN
  81. 6000 REM set up for integers
  82. 6010 DEC$="#########,."
  83. 6100 RETURN
  84. 7000 REM set up for floating
  85. 7010 INPUT"HOW MANY PLACES ";DEC
  86. 7020 DEC$="#######,."+STRING$(DEC,"#")
  87. 7030 CLS:RETURN 100
  88. 8000 REM check factors of a number
  89. 8010 CLS
  90. 8015 PRINT"FACTORS OF A NUMBER"
  91. 8020 LOCATE 3,1
  92. 8030 INPUT"FACTOR WHAT NUMBER";NO1%
  93. 8040 GOSUB 8500
  94. 8500 REM find common factors of NO%
  95. 8510 REM FC%=factor count
  96. 8520 REM FC%( )=factors
  97. 8530 FOR TEST%=2 TO NO%\2
  98.