fb:porticula NoPaste
NotenSchnitt
Uploader: | ytwinky |
Datum/Zeit: | 31.08.2007 22:04:06 |
DIM AS INTEGER anznoten,x
DIM Note(1 TO 6) AS INTEGER
DIM AS SINGLE schnitt, noten
INPUT "Gib die anzahl der Einsen ein:", note(1)
INPUT "Gib die anzahl der Zweien ein:", note(2)
INPUT "Gib die anzahl der Dreien ein:", note(3)
INPUT "Gib die anzahl der Vieren ein:", note(4)
INPUT "Gib die anzahl der Fünfen ein:", note(5)
INPUT "Gib die anzahl der Sechsen ein:", note(6)
FOR noten = 1 TO 6
anznoten += Note(noten)
Schnitt+=Note(i)*i
NEXT noten
schnitt /= anznoten
? schnitt
SLEEP