Section courante

A propos

Section administrative du site

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» :

  1. WITH TEXT_IO; 
  2. WITH Ada.Numerics.Generic_Elementary_Functions;
  3. USE TEXT_IO;
  4.  
  5. PROCEDURE FunctionSamples IS 
  6.    I:Float;
  7.       
  8.    FUNCTION Ln(X:Float) RETURN Float IS 
  9.       PACKAGE Math IS NEW Ada.Numerics.Generic_Elementary_Functions (Float);
  10.    BEGIN
  11.       RETURN Math.Log(X);
  12.    END Ln; 
  13.  
  14. BEGIN
  15.    I:=0.1;   
  16.    WHILE I <= 2.0 LOOP      
  17.       PUT_LINE("Ln(" & FLOAT'IMAGE(I) & ")=" & FLOAT'IMAGE(Ln(I)));      
  18.       I := I + 0.1;      
  19.    END LOOP;  
  20. END FunctionSamples;

on obtiendra le résultat suivant :

LOG(0.100000)=-2.302585
LOG(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