13 lines
313 B
Text
13 lines
313 B
Text
include c:\cxpl\codes; \intrinsic 'code' declarations
|
|
int A, I;
|
|
real N, S, S2;
|
|
[A:= [2,4,4,4,5,5,7,9];
|
|
N:= 0.0; S:= 0.0; S2:= 0.0;
|
|
for I:= 0 to 8-1 do
|
|
[N:= N + 1.0;
|
|
S:= S + float(A(I));
|
|
S2:= S2 + float(sq(A(I)));
|
|
RlOut(0, sqrt((S2/N) - sq(S/N)));
|
|
];
|
|
CrLf(0);
|
|
]
|