MININTVALUE |
Entier de valeur minimal |
|---|---|
| Delphi/Kylix/Lazarus | Math |
Syntaxe
| Function MinIntValue(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 petite valeur d'un tableau d'entier.
Exemple
Voici un exemple montrant l'utilisation de cette fonction :
- Program MinIntValueSamples;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils,Math;
-
- Var
- Array1:Array[0..1]of Integer = (5,-18);
- Array2:Array[0..4]of Integer = (1,2,3,4,5);
- Array3:Array[0..4]of Integer = (5,4,3,2,1);
- Array4:Array[0..6]of Integer = (24,34,13,72,100,1,34);
-
- BEGIN
- WriteLn('MININTVALUE(5,-18)=',MinIntValue(Array1));
- WriteLn('MININTVALUE(1,2,3,4,5)=',MinIntValue(Array2));
- WriteLn('MININTVALUE(5,4,3,2,1)=',MinIntValue(Array3));
- WriteLn('MININTVALUE(24,34,13,72,100,1,34)=',MinIntValue(Array4));
- END.
on obtiendra le résultat suivant :
MININTVALUE(5,-18)=-18MININTVALUE(1,2,3,4,5)=1
MININTVALUE(5,4,3,2,1)=1
MININTVALUE(24,34,13,72,100,1,34)=1
Dernière mise à jour : Mercredi, le 18 février 2015