Sign in Join
FPDoc Onlineexperiment

SumsAndSquares procedure

In unit Math

Return sum and sum of squares of values.

Declaration

pascal
procedure SumsAndSquares(const data: Array of Single; var sum: Float; 
 var sumofsquares: Float)

Description

sumsandsquares calculates the sum of the values and the sum of the squares of the values in the data array and returns the results in sum and sumofsquares.

The second form of the function accepts a pointer to an array of N values.

Errors

None.

See also

Example: ex46

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.