1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Program Example35;
{ Program to demonstrate the PopnStdDev function. }
{ @ should return typed pointer }
{$T+}
Uses Math;
Type
TExArray = Array[1..100] of Float;
Var
I : Integer;
ExArray : TExArray;
begin
Randomize;
for I:=low(ExArray) to high(ExArray) do
ExArray[i]:=(Random-Random)*100;
Writeln('Max : ',MaxValue(ExArray):8:4);
Writeln('Min : ',MinValue(ExArray):8:4);
Writeln('Pop. stddev. : ',PopnStdDev(ExArray):8:4);
Writeln('Pop. stddev. (b) : ',PopnStdDev(@ExArray[1],100):8:4);
end.
|
