paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Minimum/maximum functions

Browse Source
This commit is contained in:
michael 1998-11-02 12:52:46 +00:00
parent 9a38bce562
commit 5772c2b310
1 changed files with 58 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
rtl/objpas/math.pp
View File

@ -53,6 +53,16 @@ interface
einvalidargument = class(ematherror);
{ Min/max determination }
function MinIntValue(const Data: array of Integer): Integer;
function MaxIntValue(const Data: array of Integer): Integer;
{ Extra, not present in Delphi, but used frequently }
function Min(Int1,Int2:Integer):Integer;
function Min(Int1,Int2:Cardinal):Cardinal;
function Max(Int1,Int2:Integer):Integer;
function Max(Int1,Int2:Cardinal):Cardinal;
{ angle conversion }
function degtorad(deg : float) : float;
@ -609,9 +619,55 @@ function norm(const data : array of float) : float;
end.
function MinIntValue(const Data: array of Integer): Integer;
var
I: Integer;
begin
Result := Data[Low(Data)];
For I := Succ(Low(Data)) To High(Data) Do
If Data[I] < Result Then Result := Data[I];
end;
function MaxIntValue(const Data: array of Integer): Integer;
var
I: Integer;
begin
Result := Data[Low(Data)];
For I := Succ(Low(Data)) To High(Data) Do
If Data[I] > Result Then Result := Data[I];
end;
function Min(Int1,Int2:Integer):Integer;
begin
If Int1 < Int2 Then Result := Int1
Else Result := Int2;
end;
function Min(Int1,Int2:Cardinal):Cardinal;
begin
If Int1 < Int2 Then Result := Int1
Else Result := Int2;
end;
function Max(Int1,Int2:Integer):Integer;
begin
If Int1 > Int2 Then Result := Int1
Else Result := Int2;
end;
function Max(Int1,Int2:Cardinal):Cardinal;
begin
If Int1 > Int2 Then Result := Int1
Else Result := Int2;
end;
{
$Log$
Revision 1.5 1998-09-24 23:45:26 peter
Revision 1.6 1998-11-02 12:52:46 michael
Minimum/maximum functions
Revision 1.5 1998/09/24 23:45:26 peter
* updated for auto objpas loading
Revision 1.4 1998/09/18 23:57:27 michael
@ -622,4 +678,4 @@ end.
Revision 1.2 1998/07/29 15:44:34 michael
included sysutils and math.pp as target. They compile now.
}
}