Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

NotenSchnitt

Uploader:Redakteurytwinky
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