Bonjour,  
 
J'ai remarqué que lorsque j'utilise get_line dans une procédure,  à l'éxecution du programme le get_line est toujours demandé en 1er même si il est placé en condition(if then)
 
J'ai vu ceci : Ada.Text_IO.Set_Col (Ada.Text_IO.Standard_Input, 1)  ici : wikiget_line mais je ne comprends pas.
 
Comment faire pour ne plus avoir un get_line au début de l'éxecution d'un programme, mais à la place voulue ?

Tu peux donner un exemple stp ?

Par exemple :
 

with ada.text_io;  use ada.text_io;
 
Procedure exemple is
          
      nom : string := ada.text_io.get_line ;
      taille_chaine : Natural ;
        
Begin
    put_line("choisissez un nom, en lettres de préférence" );
    put(" :" ); get_line(nom,taille_chaine); skip_line ;
         put("le nom choisis est : " ); put(nom); 
 
end exemple ;

 
Aprés compilation, a l'éxecution put_line et put sont ignorés et  get_line est demandé en premier.

Normal.
 
Tu as un Get_Line dans la partie déclarative de ton programme ; Celle ci étant élaboré avant de rentrer dans le corp du programme.
 

Dans ce cas, je ne sais plus comment coder, je voudrais faire un get_line sur un string de taille inconnu(1er parametre).

En reprenant ton code...

with ada.text_io;  use ada.text_io;
     
    Procedure exemple is
    begin
 
        put_line("choisissez un nom, en lettres de préférence" );
        put(" :" ); 
 
        declare
              nom : string := ada.text_io.get_line ;
        begin
              put("le nom choisis est : " ); put(nom); 
        exception
              when Text_Io.End_Error =>
                  null;
        end;
     
    end exemple ;

ah d'accord merci, jusqu'à maintenant je ne faisais pas de déclaration dans le corps du programme.  
Mais pourquoi il n'y a pas besoin de 2eme parametre pour get_line ?

Il n'y en a même aucun.
 
Lis Ada.Text_Io 2005 or later/