1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Program Example28;
{ Program to demonstrate the Meanandstddev function. }
Uses math;
Type
TExArray = Array[1..100] of Extended;
Var
I : Integer;
ExArray : TExArray;
Mean,stddev : Extended;
begin
Randomize;
for I:=low(ExArray) to high(ExArray) do
ExArray[i]:=(Random-Random)*100;
MeanAndStdDev(ExArray,Mean,StdDev);
Writeln('Mean : ',Mean:8:4);
Writeln('StdDev : ',StdDev:8:4);
MeanAndStdDev(@ExArray[1],100,Mean,StdDev);
Writeln('Mean (b) : ',Mean:8:4);
Writeln('StdDev (b) : ',StdDev:8:4);
end.
|
