Alors voilà mon problème, ça doit être très simple pour un type qui comprend la programmation mais pas pour moi, j'ai une fonction ,déjà je sais à peine m'en servir, en fait pas du tout.
 Est ce que je peux l'appeler dans une procedure ?
 Si oui comment, car tout ce que je tente me refuse la syntaxe de mon appel de fonction ( je suppose donc que je ne peux pas appeler une fonction dans une procedure mais j'en sais rien en fait ), et le problème c'est que ma fonction dépend de types déclarés dans une procedure, de plus je serais bien incapable de faire " fonctionner une fonction " toute seule. (déjà que je ne vois pas la différence entre fonction et procedure )
 
C'est une fonction qui renvoie un booleen true /false, mais soit l'appel ne lui plait pas, soit il me dit qu'il a perdu mes paramètres .
Comment faire ?  
 
 
 
 
 
Même si c'est une question surement inintéressante pour des experts , j'ai vraiment besoin d'une réponse .
 
Voilà sans oublier la politesse : merci d'avance .

Montres un peu ton code, et on pourra t'éclairsir plus précisemment.
 
Sinon:
1) Oui on peut évidemment appeler une fonction dans une procédure
2) La différence entre une procédure et une fonction c'est qu'une fonction renvoie une valeur et la procédure non.
3) Si tu déclares un type dans un sous-programme (procédure ou fonction), ce type ne sera visible que dans ce sous programme.
Alors déclares ton type avant le sous-programme qui en a besoin.

Et moi j'attendais tranquillement dans ma boite mail , quelle tache , donc voilà tout le truc , ce qu'il y a en plus du problème d'appel de fonction , c'est que j'aimerais avoir les mêmes paramètres dans la procedure et la fonction :
 
 
WITH ADA.Text_IO,Ada.Integer_Text_IO;
USE Ada.Text_IO,Ada.Integer_Text_IO;
 
 
Procedure TP_7_g_If is
   SUBTYPE T_Mois IS Natural RANGE 1..12 ;
   SUBTYPE T_Jour IS Natural RANGE 1..31 ;
   SUBTYPE T_Annee IS Natural RANGE 1..9999;
   TYPE T_Date is RECORD
      J: T_Jour ;
      M: T_Mois ;
      A: T_Annee ;
   END RECORD ;  
   FUNCTION Anterieure_Ou_Egale( D3,D4 :T_Date )  RETURN Boolean IS
   BEGIN  
      IF (D3.A < D4.A)
          THEN return True;
      ELSIF (D3.A = D4.A )      
            THEN IF (D3.M < D4.M )
               THEN return True ;
            ELSIF  (D3.M = D4.M )
               THEN IF (D3.J <= D4.J)
                    THEN return True ;
                    ELSE return False ;
                    END IF;
            ELSE return False;    
            END IF;
      ELSE return False ;
      END IF ;        
  END Anterieure_Ou_Egale;
BEGIN
    LOOP
   Put("donnez le jour puis le mois puis l'annee , séparez par un espace , appuyez sur entrée en fin de saisi " );
   New_Line ;
      Get(D3.J);Get(D3.M);Get(D3.A);Skip_Line;
   Put("donnez le jour puis le mois puis l'annee , séparez par un espace , appuyez sur entrée en fin de saisi " );
   New_Line ;
      Get(D4.J);Get(D4.M);Get(D4.A);Skip_Line;
  -- C'est là que j'aimerais appeler ma fonction :
      Anterieure_Ou_Egale ; -- C'est là ( en partie ) que ça foire même si je met ( D3,D4)
   END LOOP;
   End;      
 
 
PS : Pourtant c'est pas dur de renvoyer une valeur avec une procedure je comprend pas pourquoi on écrit toujours ça .

Premièrement, comme ton compilateur doit te signaler, D3 et D4 n'existent pas pour la procedure TP_7_g_If, comme je te l'ai dit dans mon précédent post.
 
Deuxièmement, Anterieure_Ou_Egale est une fonction qui a 2 paramètres de type natural.
Pourquoi écris-tu Anterieure_Ou_Egale sans paramètre ???
 
Tu dois (comme tu l'as indiqué en commentaire) rajouter les paramètres, et là, tu as une erreur de compilation qui te dis "tp_7_g_if.adb:59:07: expect procedure name in procedure call", car tu n'utilises pas la valeur renvoyée par ta fonction.
Le compilateur concidère cela comme un appel de procédure d'où le message...
 
En C, tu aurais pu compiler ce programme (un bien mauvais programme) et quel aurait été le résultat de ton programme? RIEN
 
Du devrais faire un truc du style

if Anterieure_Ou_Egale(date1,date2) then
  Ada.text_io.put("bla bla bla" );
end if;

 
ps: utilise les balises de code pour écrire du code

J'ai corrigé les erreurs , ça m'a permis de comprendre (un peu) comment ça fonctionne :

 
Voilà, Maintenant je sais qu'une fonction ça s'appelle et que ça ne se pose pas bêtement comme une procedure .Pour ce qui est de la qualité du programme , je n'ai peut-être pas fait au plus simple mais je ne vois pas comment faire mieux sachant qu'on doit comparer d'abord les années , puis les mois si années égales, puis les jours si années égales et mois égaux, et puis les mots il faut bien les écrire, mais c'est vrai j'ai parfois l'impression de faire trop long .
 
Merci quand même !!!