home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / NUMERIC-AVERAGER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  151 lines
  1. 10 PRINT"[147]             GRADE AVERAGER"
  2. 15 PRINT"     BY STEPHEN PETERSEN COMPUPETE"
  3. 20 PRINT"HOW MANY NUMBERS DO YOU WANT TO AVERAGE"
  4. 25 INPUT A
  5. 30 IF A=1 GOTO 10
  6. 31 IF A=2 GOTO 40
  7. 32 IF A=3 GOTO 47
  8. 33 IF A=4 GOTO 55
  9. 34 IF A=5 GOTO 65
  10. 35 IF A=6 GOTO 77
  11. 36 IF A=7 GOTO 91
  12. 37 IF A=8 GOTO 107
  13. 38 IF A=9 GOTO 125
  14. 39 IF A=10 GOTO 145
  15. 40 PRINT"WHAT IS THE 1ST NUMBER"
  16. 42 INPUT AA
  17. 43 PRINT"WHAT IS THE 2ND NUMBER"
  18. 44 INPUT AB
  19. 45 AC=(AA+AB)/2
  20. 46 GOTO 500
  21. 47 PRINT"WHAT IS THE 1ST NUMBER"
  22. 48 INPUT BA
  23. 49 PRINT"WHAT IS THE 2ND NUMBER"
  24. 50 INPUT BB
  25. 51 PRINT"WHAT IS THE 3RD NUMBER"
  26. 52 INPUT BC
  27. 53 AC=(BA+BB+BC)/3
  28. 54 GOTO 500
  29. 55 PRINT"WHAT IS THE 1ST NUMBER"
  30. 56 INPUT CA
  31. 57 PRINT"WHAT IS THE 2ND NUMBER"
  32. 58 INPUT CB
  33. 59 PRINT"WHAT IS THE 3RD NUMBER"
  34. 60 INPUT CC
  35. 61 PRINT"WHAT IS THE 4TH NUMBER"
  36. 62 INPUT CD
  37. 63 AC=(CA+CB+CC+CD)/4
  38. 64 GOTO 500
  39. 65 PRINT"WHAT IS THE 1ST NUMBER"
  40. 66 INPUT DA
  41. 67 PRINT"WHAT IS THE 2ND NUMBER"
  42. 68 INPUT DB
  43. 69 PRINT"WHAT IS THE 3RD NUMBER"
  44. 70 INPUT DC
  45. 71 PRINT"WHAT IS THE 4TH NUMBER"
  46. 72 INPUT DD
  47. 73 PRINT"WHAT IS THE 5TH NUMBER"
  48. 74 INPUT DE
  49. 75 AC=(DA+DB+DC+DD+DE)/5
  50. 76 GOTO 500
  51. 77 PRINT"WHAT IS THE 1ST NUMBER"
  52. 78 INPUT EA
  53. 79 PRINT"WHAT IS THE 2ND NUMBER"
  54. 80 INPUT EB
  55. 81 PRINT"WHAT IS THE 3RD NUMBER"
  56. 82 INPUT EC
  57. 83 PRINT"WHAT IS THE 4TH NUMBER"
  58. 84 INPUT ED
  59. 85 PRINT"WHAT     
  60. 17736  5TH NUMBER"
  61. 86 INPUT EE
  62. 87 PRINT"WHAT IS THE 6TH NUMBER"
  63. 88 INPUT EF
  64. 89 AC=(EA+EB+EC+ED+EE+EF)/6
  65. 90 GOTO 500
  66. 91 PRINT"WHAT IS THE 1ST NUMBER"
  67. 92 INPUT FA
  68. 93 PRINT"WHAT IS THE 2ND NUMBER"
  69. 94 INPUT FB
  70. 95 PRINT"WHAT IS THE 3RD NUMBER"
  71. 96 INPUT FC
  72. 97 PRINT"WHAT IS THE 4TH NUMBER"
  73. 98 INPUT FD
  74. 99 PRINT"WHAT IS THE 5TH NUMBER"
  75. 100 INPUT FE
  76. 101 PRINT"WHAT IS THE 6TH NUMBER"
  77. 102 INPUT FF
  78. 103 PRINT"WHAT IS THE 7TH NUMBER"
  79. 104 INPUT FG
  80. 105 AC=(FA+FB+FC+FD+FE+FF+FG)/7
  81. 106 GOTO 500
  82. 107 PRINT"WHAT IS THE 1ST NUMBER"
  83. 108 INPUT GA
  84. 109 PRINT"WHAT IS THE 2ND NUMBER"
  85. 110 INPUT GB
  86. 111 PRINT"WHAT IS    
  87. 13088 RD NUMBER"
  88. 112 INPUT GC
  89. 113 PRINT"WHAT IS THE 4TH NUMBER"
  90. 114 INPUT GD
  91. 115 PRINT"WHAT IS THE 5TH NUMBER"
  92. 116 INPUT GE
  93. 117 PRINT"WHAT IS THE 6TH NUMBER"
  94. 118 INPUT GF
  95. 119 PRINT"WHAT IS THE 7TH NUMBER"
  96. 120 INPUT GG
  97. 121 PRINT"WHAT IS THE 8TH NUMBER"
  98. 122 INPUT GH
  99. 123 AC=(GA+GB+GC+GD+GE+GF+GG+GH)/8
  100. 124 GOTO 500
  101. 125 PRINT"WHAT IS THE 1ST NUMBER"
  102. 126 INPUT HA
  103. 127 PRINT"WHAT IS THE 2ND NUMBER"
  104. 128 INPUT HB
  105. 129 PRINT"WHAT IS THE 3RD NUMBER"
  106. 130 INPUT HC
  107. 131 PRINT"WHAT IS THE 4TH NUMBER"
  108. 132 INPUT HD
  109. 133 PRINT"WHAT IS THE 5TH NUMBER"
  110. 134 INPUT HE
  111. 135 PRINT"WHAT IS THE 6TH NUMBER"
  112. 136 INPUT HF
  113. 137 PRINT"WHAT I    
  114. 8261 7TH NUMBER"
  115. 138 INPUT HG
  116. 139 PRINT"WHAT IS THE 8TH NUMBER"
  117. 140 INPUT HH
  118. 141 PRINT"WHAT IS THE 9TH NUMBER"
  119. 142 INPUT HI
  120. 143 AC=(HA+HB+HC+HD+HE+HF+HG+HH+HI)/9
  121. 144 GOTO 500
  122. 145 PRINT"WHAT IS THE 1ST NUMBER"
  123. 146 INPUT IA
  124. 147 PRINT"WHAT IS THE 2ND NUMBER"
  125. 148 INPUT IB
  126. 149 PRINT"WHAT IS THE 3RD NUMBER"
  127. 150 INPUT IC
  128. 151 PRINT"WHAT IS THE 4TH NUMBER"
  129. 152 INPUT ID
  130. 153 PRINT"WHAT IS THE 5TH NUMBER"
  131. 154 INPUT IE
  132. 155 PRINT"WHAT IS THE 6TH NUMBER"
  133. 156 INPUT IG
  134. 157 PRINT"WHAT IS THE 7TH NUMBER"
  135. 158 INPUT IH
  136. 159 PRINT"WHAT IS THE 8TH NUMBER"
  137. 160 INPUT II
  138. 161 PRINT"WHAT IS THE 9TH NUMBER"
  139. 162 INPUT IJ
  140. 163 PRINT"WH    
  141. 8275 THE 10TH NUMBER"
  142. 164 INPUT IK
  143. 165 AC=(IA+IB+IC+ID+IE+IG+IH+II+IJ+IK)/10
  144. 166 GOTO 500
  145. 500 PRINT"THE AVERAGE IS";AC;""
  146. 503 PRINT"ANOTHER AVERAGE"
  147. 504 INPUT Y$
  148. 505 IF Y$="Y" THEN GOTO 10
  149. 506 IF Y$="N" THEN GOTO 507
  150. 507 PRINT"[147][154]STEPHEN WAS HERE[154]"
  151.