Skip to content

    MaxValue

    Return largest value in array.

    Declaration

    Source position: math.pp line 804

    function MaxValue(const data: Array of Single) : Single;

    function MaxValue(const data: PSingle; const N: Integer) : Single;

    function MaxValue(const data: Array of Double) : Double;

    function MaxValue(const data: PDouble; const N: Integer) : Double;

    function MaxValue(const data: Array of Extended) : Extended;

    function MaxValue(const data: PExtended; const N: Integer) : Extended;

    function MaxValue(const data: Array of Integer) : Integer;

    function MaxValue(const data: PInteger; const N: Integer) : Integer;

    Description

    Maxvalue returns the largest value in the data array with integer or float values. The return value has the same type as the elements of the array.

    The third and fourth forms accept a pointer to an array of N integer or float values.

    Errors

    None.

    See also

    Name Description
    maxIntValue Return largest element in integer array.
    minvalue Return smallest value in array.
    minIntValue Return smallest value in integer array.

    Example

    program Example26;

{ Program to demonstrate the MaxValue function. }

{ Make sore integer is 32 bit}
{$mode objfpc}

uses math;

var i:1..100;
    f_array:array[1..100] of Float;
    i_array:array[1..100] of Integer;
    Pf_array:Pfloat;
    PI_array:Pinteger;

begin
  randomize;

  Pf_array:=@f_array[1];
  Pi_array:=@i_array[1];

  for i:=low(f_array) to high(f_array) do
    f_array[i]:=(random-random)*100;
  for i:=low(i_array) to high(i_array) do
    i_array[i]:=random(I)-random(100);

  Writeln('Max Float       : ',MaxValue(f_array):8:4);
  Writeln('Max Float   (b) : ',MaxValue(Pf_array,100):8:4);
  Writeln('Max Integer     : ',MaxValue(i_array):8);
  Writeln('Max Integer (b) : ',MaxValue(Pi_array,100):8);
end.