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
26
|
Program Example45;
{ Program to demonstrate the SumOfSquares function. }
{ @ should return typed pointer }
{$T+}
Uses math;
Var
I : 1..100;
ExArray : Array[1..100] of Float;
s,ss : float;
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);
SumsAndSquares(ExArray,S,SS);
Writeln('Sum : ',S:8:4);
Writeln('Sum squares : ',SS:8:4);
SumsAndSquares(@ExArray[1],100,S,SS);
Writeln('Sum (b) : ',S:8:4);
Writeln('Sum squares (b) : ',SS:8:4);
end.
|
