Fonction

Pour les fonctions, la gestion des paramètres d'appels se fait exactement de la même manière, le retour en plus. De nouveau si le type de retour est connu, l'affichage de ce dernier est directement gérer, sinon il est pré-déclarer sous forme de commentaires.

-------------------------------------------------------------
-- Procedure de test de la fonction Racine
-------------------------------------------------------------
procedure Test_Racine is

   Retour : T_Element;

begin -- Test_Racine

   Retour := Racine ( Tab_T_Arbre_Recherche ( Choisir_Objet_T_Arbre_Recherche ) );

   -- Type inconnu.
   -- Put ( "Valeur de retour : " );
   -- Put ( Retour );
   -- New_Line;

end Test_Racine;

Dans le cas ci-dessus, le paramètre de retour est du type ``T_Element'' et, n'étant pas un type standard, l'affichage de sa valeur est pré-déclarée sous forme de commentaires.