FUNCTION |
Fonction |
|---|---|
| Ada | |
Syntaxe
|
FUNCTION identf(param) RETURN typef IS corps de la fonction; END identf |
Paramètres
| Nom | Description |
|---|---|
| identf | Ce paramètre permet d'indiquer l'identificateur de la fonction |
| param | Ce paramètre permet d'indiquer les paramètres de la fonction |
| typef | Ce paramètre permet d'indiquer le type de données de la fonction |
| corps de la fonction | Ce paramètre permet d'indiquer le corps de la fonction |
Description
Ce mot réservé permet de définir une fonction utilisateur.
Exemple
Voici un exemple permettant d'afficher le logarithme inférieurs à 2 en utilisant le mot réservé «FUNCTION» :
- WITH TEXT_IO;
- WITH Ada.Numerics.Generic_Elementary_Functions;
- USE TEXT_IO;
-
- PROCEDURE FunctionSamples IS
- I:Float;
-
- FUNCTION Ln(X:Float) RETURN Float IS
- PACKAGE Math IS NEW Ada.Numerics.Generic_Elementary_Functions (Float);
- BEGIN
- RETURN Math.Log(X);
- END Ln;
-
- BEGIN
- I:=0.1;
- WHILE I <= 2.0 LOOP
- PUT_LINE("Ln(" & FLOAT'IMAGE(I) & ")=" & FLOAT'IMAGE(Ln(I)));
- I := I + 0.1;
- END LOOP;
- END FunctionSamples;
on obtiendra le résultat suivant :
LOG(0.100000)=-2.302585LOG(0.200000)=-1.609438
LOG(0.300000)=-1.203973
LOG(0.400000)=-0.916291
LOG(0.500000)=-0.693147
LOG(0.600000)=-0.510826
LOG(0.700000)=-0.356675
LOG(0.800000)=-0.223143
LOG(0.900000)=-0.105360
LOG(1.000000)=0.000000
LOG(1.100000)=0.095310
LOG(1.200000)=0.182322
LOG(1.300000)=0.262364
LOG(1.400000)=0.336472
LOG(1.500000)=0.405465
LOG(1.600000)=0.470004
LOG(1.700000)=0.530628
LOG(1.800000)=0.587787
LOG(1.900000)=0.641854
Dernière mise à jour : Dimanche, le 1er avril 2018