home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern338.d64 / notenauswertung (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-08-09  |  2.0 KB  |  107 lines
  1. 2 REM  NOTENAUSWERTUNG
  2. 6 PRINT"[147]NOTEN-AUSWERTUNGSPROGRAMM
  3. 10 [153]"BERECHNET:
  4. 11 PRINT"      - SUMMEN
  5. 12 [153]"      - MITTELWERTE
  6. 13 PRINT"      - STANDARDABWEICHUNG
  7. 14 [153]"      - T- UND %-WERTE
  8. 15 INPUT"LISTE AUSDRUCKEN  (J/N)";P$
  9. 16 DIMA$(25)
  10. 20 INPUT"WELCHES FACH";A$
  11. 40 INPUT"WIEVIELE WERTE";N
  12. 50 DIMX(N)
  13. 60 DIMY(N)
  14. 70 DIMV(N)
  15. 75 PRINT"[147]
  16. 80 [129]K[178]1[164]N
  17. 90 [153]"ZAHL";K;:[133]X
  18. 100 X(K)[178]X
  19. 110 [130]K
  20. 120 T[178]0
  21. 130 [129]K[178]1[164]N
  22. 140 T[178]T[170]X(K)
  23. 150 [130]K
  24. 160 [153]"LOADBERECHNUNGEN FUER ";A$
  25. 240 [153]"SUMME=";T
  26. 250 B[178]T[173]N
  27. 260 [153]"MITTELWERT=";B
  28. 270 S[178]0
  29. 280 [129]K[178]1[164]N
  30. 290 S[178]S[170](X(K)[171]B)[174]2
  31. 300 [130]K
  32. 310 S[178][186](1[173](N[171]1)[172]S)
  33. 320 [153]"STANDARDABWEICHUNG=";S
  34. 345 [143] SORTIEREN DER PUNKTWERTE
  35. 350 [129]K[178]1[164]N[171]1
  36. 360 [129]I[178]K[170]1[164]N
  37. 370 [139]X(I)[177][178]X(K)[167]400
  38. 380 H[178]X(K)
  39. 385 X(K)[178]X(I)
  40. 390 X(I)[178]H
  41. 400 [130]I
  42. 410 [130]K
  43. 480 [153]"NOTENBEREICH 3-6  (3)
  44. 490 PRINT"             2-6  (2)"
  45. 500 INPUT"KEINE NOTEN       (0)";C
  46. 660 REM BERECH D T-WERTE
  47. 670 FORK=1TON
  48. 690 D=(X(K)-B)/S
  49. 700 Y(K)=INT((D+3)*100/6+.5)
  50. 710 NEXTK
  51. 745 PRINT"NOTENBERECHNUNG
  52. 750 [139]C[179][177]2[175]C[179][177]3[167]2000
  53. 755 [139]C[178]3[167]1100
  54. 757 [143] BEREICH 2-6
  55. 760 [129]K[178]1[164]N
  56. 780 [139]Y(K)[179]33[167]V(K)[178]2:[137]870
  57. 790 [139]Y(K)[179]36[167]V(K)[178]2.5:[137]870
  58. 800 [139]Y(K)[179]40[167]V(K)[178]3:[137]870
  59. 810 [139]Y(K)[179]45[167]V(K)[178]3.5:[137]870
  60. 820 [139]Y(K)[179]50[167]V(K)[178]4:[137]870
  61. 830 [139]Y(K)[179]55[167]V(K)[178]4.5:[137]870
  62. 840 [139]Y(K)[179]58[167]V(K)[178]5:[137]870
  63. 850 [139]Y(K)[179]63[167]V(K)[178]5.5:[137]870
  64. 860 [139]Y(K)[177]62[167]V(K)[178]6
  65. 870 [130]K
  66. 880 [137]2000
  67. 1100 [143] BEREICH 3-6
  68. 1110 [129]K[178]1[164]N
  69. 1120 [139]Y(K)[179]33[167]V(K)[178]3:[137]1190
  70. 1130 [139]Y(K)[179]39[167]V(K)[178]3.5:[137]1190
  71. 1140 [139]Y(K)[179]46[167]V(K)[178]4:[137]1190
  72. 1150 [139]Y(K)[179]51[167]V(K)[178]4.5:[137]1190
  73. 1160 [139]Y(K)[179]57[167]V(K)[178]5:[137]1190
  74. 1170 [139]Y(K)[179]61[167]V(K)[178]5.5:[137]1190
  75. 1180 [139]Y(K)[177]60[167]V(K)[178]6:[137]1190
  76. 1190 [130]K
  77. 2000 [139]P$[178]"N"[167]2100
  78. 2002 [159]1,4:[157]1
  79. 2005 [152]1,[199](14);[163]10);"ERGEBNISSE ";A$
  80. 2015 [152]1:[152]1:[152]1,[163]20);"SUMME ROHWERTPUNKTE";T
  81. 2020 [152]1:[152]1,[163]20);"MITTELWERT";B
  82. 2030 [152]1:[152]1,[163]20);"STANDARD-ABWEICHUNG";S:[152]1:[152]1
  83. 2042 [139]C[179][177]2[175]C[179][177]3[167]2300
  84. 2050 [152]1:[152]1:[152]1,"RW-PUNKTE","T-WERTE",,"NOTE":[152]1
  85. 2055 [129]K[178]1[164]N
  86. 2058 [139]X(K)[178]X(K[171]1)[167]2070
  87. 2060 [152]1,X(K),,Y(K),,V(K)
  88. 2070 [130]K
  89. 2080 [129]I[178]1[164]15:[152]1:[130]I
  90. 2100 [153]"LOADERGEBNISSE  ";A$
  91. 2105 [139]C[179][177]2[175]C[179][177]3[167]2200
  92. 2110 [153]"PW-PTE","T-W","N"
  93. 2120 [129]K[178]1[164]N
  94. 2130 [153]X(K),Y(K),V(K)
  95. 2140 [130]K
  96. 2150 [153]"ENDE":[160]1,4:[128]
  97. 2200 [153]"RW-PTE",,"T-W"
  98. 2205 [129]K[178]1[164]N
  99. 2210 [153]X(K),,Y(K)
  100. 2220 [130]K
  101. 2230 [137]2150
  102. 2300 [152]1,"RW-PTE",,"T-WERTE"
  103. 2310 [129]K[178]1[164]N
  104. 2320 [152]1,X(K),,Y(K)
  105. 2330 [130]K
  106. 2340 [137]2080
  107.