home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 11_5lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  37 lines
  1. 10 print"[147]        <<    mittelwert    >>    und ":printtab(10)"standardabweichung"
  2. 20 print"das programm berechnet mittelwert und"
  3. 30 print"standardabweichung von bis zu 255 zahlen";:print"(datenwerten)."
  4. 40 print"--ende durch eingabe von <0>--"
  5. 50 dim x(255)
  6. 60 print "wieviele daten werden eingegeben"
  7. 70 input n
  8. 75 ifn=0then500
  9. 80 print "eingabe der daten (druecke nach jeder   eingabe return[146])."
  10. 90 for i = 1 to n
  11. 100 rem die daten werden zunaechst in der matrix x gespeichert.
  12. 110 input x(i)
  13. 120 next
  14. 130 rem um den anfang der auflistung zu sehen, tippen sie bitte
  15. 140 rem list -73 ein.
  16. 150 m = 0
  17. 160 rem addition
  18. 170 for i = 1 to n
  19. 180 m = m + x(i)
  20. 190 next
  21. 200 rem division der summe durch anzahl der werte.
  22. 210 m = m/n
  23. 220 s = 0
  24. 230 rem summe der quadratischen abweichungen.
  25. 240 for i = 1 to n
  26. 250 s = s + (x(i) - m)^2
  27. 260 next
  28. 270 rem wurzel aus der division der summe s durch n-1
  29. 280 s = (s/(n - 1))^.5
  30. 290 print"[147]"
  31. 300 print"der mittelwert ist    "m
  32. 310 print"standardabweichung ist"s
  33. 320 goto60
  34. 500 end
  35. 510 rem das graphik-zeichen "q" im print-befehl bedeutet crsr runter
  36. 512 rem "[209]" bedeutet crsr hoch, "]" csr rechts und "[221]" crsr links.
  37.