MINVALUE |
Valeur minimum |
|---|---|
| Free Pascal | Math |
Syntaxe
| Function minvalue(const data: array of Extended):Extended; |
| Function minvalue(const data: PExtended;const N: Integer):Extended; |
| Function minvalue(const data: array of Integer):Integer; |
| Function MinValue(const Data: PInteger;const N: Integer):Integer; |
Paramètres
| Nom | Description |
|---|---|
| data | Ce paramètre permet d'indiquer le tableau de valeur à tester |
| N | Ce paramètre permet d'indiquer le nombre de valeur à tester |
Description
Cette fonction permet de renvoyer la plus petite valeur d'un tableau de nombre.
Exemple
Voici un exemple montrant l'utilisation de cette fonction :
- Program MinValueSamples;
-
- Uses Math;
-
- Var
- Array1:Array[0..1]of LongInt = (5,-18);
- Array2:Array[0..1]of Extended = (0.25,0.115);
- Array3:Array[0..4]of LongInt = (1,2,3,4,5);
- Array4:Array[0..4]of LongInt = (5,4,3,2,1);
- Array5:Array[0..6]of LongInt = (24,34,13,72,100,1,34);
-
- BEGIN
- WriteLn('MINVALUE(5,-18)=',MinValue(Array1));
- WriteLn('MINVALUE(0.25,0.115)=',MinValue(Array2));
- WriteLn('MINVALUE(1,2,3,4,5)=',MinValue(Array3));
- WriteLn('MINVALUE(5,4,3,2,1)=',MinValue(Array4));
- WriteLn('MINVALUE(24,34,13,72,100,1,34)=',MinValue(Array5));
- END.
on obtiendra le résultat suivant :
MINVALUE(5,-18)=-18MINVALUE(0.25,0.115)= 1.1500000000000000E-0001
MINVALUE(1,2,3,4,5)=1
MINVALUE(5,4,3,2,1)=1
MINVALUE(24,34,13,72,100,1,34)=1
Dernière mise à jour : Samedi, le 18 juillet 2015