TRYOUT
TO TEST 'BUILDER'
DIM A(15), B(15)
K=10
N=0
END
INPUT
TO LOAD YOUR DATA
FOR N=1 TO K
INPUT "A VALUE PLEASE ";V
A(N)=V
B(N)=V*V
NEXT N
END
CALCULATE
TO PRODUCE PRIMARY STATS
S=0
S2=0
FOR N=1 TO K
S=S+A(N)
S2=S2+B(N)
NEXT N
END
LIST
TO SEE THE RESULTS
FOR N=1 TO K
PRINT N, A(N),B(N)
NEXT N
PRINT
PRINT "SUM = ";S
PRINT "MEAN = ";S/(N-1)
PRINT
PRINT "VARIANCE IS ";S2/(N-1)-(S/(N-1))^2
END
EDITOR
TO ENABLE YOU TO ALTER A VALUE
INPUT "PLEASE GIVE Nr. OF ITEM ";L
INPUT "PLEASE GIVE NEW VALUE ";V
A(L)=V:B(L)=V*V
END
ATEST
MOD ARITHMETIC
DEF FNR(X)=INT(X*RND(1))
DATA 5,6,7,0
RESTORE
READ N
IF N=0 THEN RETURN
FOR Z=1 TO 6
A=FNR(N)
B=FNR(N)
X=A+B
PRINT A"+"B"= ";
SUBA
I=INT(X/N)
W=X-I*N
PRINT W"MOD  ";N;
RTN
GOSA
X=A*B
PRINT A"*"B"= ";
GOSA
PRINT "     "
NEXT Z
PRINT
GTO-14
END
FINISH