[Overview][Constants][Types][Classes][Procedures and functions][Index] |
Return largest value in array
Source position: math.pp line 486
function MaxValue( |
const data: array of Single |
):Single; |
const data: PSingle; |
const N: Integer |
):Single; |
const data: array of Double |
):Double; |
const data: PDouble; |
const N: Integer |
):Double; |
const data: array of Extended |
):Extended; |
const data: PExtended; |
const N: Integer |
):Extended; |
const data: array of Integer |
):Integer; |
const data: PInteger; |
const N: Integer |
):Integer; |
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.
None.
|
Return largest element in integer array |
|
|
Return smallest value in array |
|
|
Return smallest value in integer array |
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.