Skip to content

    Sum

    Return sum of values.

    Declaration

    Source position: math.pp line 742

    function Sum(const data: Array of Single) : Float;

    function Sum(const data: PSingle; const N: LongInt) : Float;

    function Sum(const data: Array of Double) : Float;

    function Sum(const data: PDouble; const N: LongInt) : Float;

    function Sum(const data: Array of Extended) : Float;

    function Sum(const data: PExtended; const N: LongInt) : Float;

    Description

    Sum returns the sum of the values in the data array.

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

    Errors

    None.

    See also

    Name Description
    sumofsquares Return sum of squares of values.
    sumsandsquares Return sum and sum of squares of values.
    totalvariance Return total variance of values.
    variance Return variance of values.

    Example

    Program Example44;

{ Program to demonstrate the Sum function. }
{ @ should return typed pointer }
{$T+}

Uses math;

Var
  I : 1..100;
  ExArray : Array[1..100] of 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);
  Writeln('Sum     : ',Sum(ExArray):8:4);
  Writeln('Sum (b) : ',Sum(@ExArray[1],100):8:4);
end.