Werbung
' IPROGRAMMBEISPIELE
PROGRAMMLISTING
10:"A":
CLEAR
: WAIT @:
nS ee
- 20: INPUT "ANZAHL
DER DA
TEN="; P
30:CURSOR
24; INPUT "GE
.
STS
35:CLS oi
-4O:TF
Az2.DIM: X(P=1):
GOTO 70°
5@:IF. A=1) DIM X(P=1) , PC
P-1):
GOTO:
7@ *
Wye
'
85:PRINT
C$3;:
INPUT
X(I
)
10@:1F
A=2
GOTO
141
11@:CLS
: PRINT
C$;X(Z)
120:B$="F("+ STR$ (I+1)+
wysn
t30:CURSOR
24:
PRINT
BS;
'a:
ENPUT
FC(L) 0.
141:CLS
: PRINT:
"X(";
STR$: (I+1)5™)="3X(1)
: CURSOR 24
15@:NEXT
I: END.
|.
200:"B*:
WAIT
O:I=0
205:IF
A=2
WAIT
210: BSE"X( "4 'STRP. (141) +
")o"iJ=1s
PRINT B$;X
~ (I):
CURSOR
24
,
23@:IF
A=1-
LET C$atP(y
STR$
(I+t)4")sm: ;
WAIT
: PRINT
C$;F(1I)
:J=2:
GOTO
246
240: I=I+1
250:IF
=P
END
255:CLS
: WAIT
0:
GOTO
2
05
260:"C":
WAIT
@:
PRINT
B
$;X(I): CURSOR 24:
PRINT
B$;:
INPUT
X(T
}
265:IF A=2 GOTO 250
270:CLS
: PRINT C$;F(I):
CURSOR
24: PRINTC$;
: INPUT F(I)
280:GOTO 250
290:IF J=1 GOTO 230
300:"D":N=@:T=0:S=0:
FOR
Is@ TO P+1:X=X{I)
' WICHTUNG=1/KEINE=2?" ©
399
w Ae Saas
Mita het
305:Fst:
IF A=1
LET FsF(-
B DEA) ra S e c i y . t
© y0. c o y peaede
310: N=N+F ; T=T+F#X:
SaS+F* |
X*#X:. NEXT
I
-
X*X)/(N-1)2Ss¥Q: ~
'BEEP 3
"- 4@5:CLS
: PRINT "GESAMTS'
UMME="3T
_ 406: CURSOR
243
WAIT:
PRINT ""MITTELWERT=";
x
PRINT
"MITTELWERT=";
x
4Q8:CLS : WAIT @:
BEEP 7
:3° PRINT "STANDARDABW
-EICHUNG=": CURSOR 33
: WAIT : PRINT S
> 410:END .
SPEICHERINHALT
Werbung
