MAXINTVALUE |
Valeur entière maximal |
---|---|
Free Pascal | Math |
Syntaxe
Function MaxIntValue(const Data:Array of Integer):Integer; |
Paramètres
Nom | Description |
---|---|
Data | Ce paramètre permet d'indiquer le tableau de valeur à tester |
Description
Cette fonction permet de renvoyer la plus grande valeur d'un tableau d'entier.
Exemple
Voici un exemple montrant l'utilisation de cette fonction :
- Program MaxIntValueSamples;
-
- Uses Math;
-
- Var
- Array1:Array[0..1]of LongInt = (5,-18);
- Array2:Array[0..4]of LongInt = (1,2,3,4,5);
- Array3:Array[0..4]of LongInt = (5,4,3,2,1);
- Array4:Array[0..6]of LongInt = (24,34,13,72,100,1,34);
-
- BEGIN
- WriteLn('MAXINTVALUE(5,-18)=',MaxIntValue(Array1));
- WriteLn('MAXINTVALUE(1,2,3,4,5)=',MaxIntValue(Array2));
- WriteLn('MAXINTVALUE(5,4,3,2,1)=',MaxIntValue(Array3));
- WriteLn('MAXINTVALUE(24,34,13,72,100,1,34)=',MaxIntValue(Array4));
- END.
on obtiendra le résultat suivant :
MAXINTVALUE(5,-18)=5MAXINTVALUE(1,2,3,4,5)=5
MAXINTVALUE(5,4,3,2,1)=5
MAXINTVALUE(24,34,13,72,100,1,34)=100
Dernière mise à jour : Samedi, le 18 juillet 2015