Fonctions

   subtype T_Nbr_Fonction is Natural range 0..Max_Sous_Programmes;

   type T_Info_Fonction is
      record
         Nom            : Unbounded_String;
         Titre_Menu     : Unbounded_String;
         Commentaire    : Unbounded_String := Null_Unbounded_String;
         Retour         : Unbounded_String;
         Generique      : T_Info_Generic;
         Parametres     : T_Parametre;
      end record;

   type T_Tab_Fonction is array (T_Nbr_Fonction) of T_Info_Fonction;
   type T_Fonction is
      record
         Nbr_Fonctions : T_Nbr_Fonction := 0;
         Tab_Fonctions : T_Tab_Fonction;
      end record;

La fonction est semblable à la procédure, seul le champ du retour de la fonction est en plus des autres paramètres.