Statistik - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"S" CLS :CLEAR :WAIT 0
20	INPUT "Anzahl Werte: ";N
30	FOR I=1 TO N
40	CURSOR 0,3:PRINT "X";STR$ I;" =":CURSOR 7,3:INPUT X
60	S=S+X:Q=Q+X*X
70	NEXT I
80	M=S/N:V=SQR (Q/N-M*M)
110	CLS :PRINT "Mittelwert:":PRINT "M = ";M:PRINT "Varianz:":WAIT :PRINT "V = ";V:CLS
120	END

Dokumentation ansehen
Programmspeicher-Image laden