Bonjour, j'essaie d'écrire un logiciel en ada qui classe des équipes de foot quand on y rentre des scores.
J'ai écrit une première sous-procédure que j'ai incluse dans le programme principal afin de vérifier qu'elle marche correctement.

La voici :

Code:
WITH Entrees_Sorties ; USE Entrees_Sorties ;

PROCEDURE Classement IS

   type Typenumerodequipe is array (Natural range 1..100) of string(1..100) ;
   type Typeequipe IS ARRAY (Integer range 1..100) OF Integer ;
   type Typetableaudesequipes IS ARRAY (Integer range 1..100) OF Typeequipe ;

   Numerodequipe : Typenumerodequipe ;



   PROCEDURE Inscrireequipe (Numerodequipe : out Typenumerodequipe ) IS
      Nbequipe : Natural ;
      Last : Integer ;
   BEGIN
      Put("Combien d'equipes ? ");
      Get(Nbequipe); new_line;
      FOR I IN 1..Nbequipe LOOP
         Put("Equipe ");Put(I,0,10);Put(" : ");
         Get_Line(Numerodequipe(I),Last); New_Line;
      END LOOP;
   END Inscrireequipe ;


BEGIN
   Inscrireequipe(Numerodequipe);
END Classement;
Et donc cette procédure est censée me demander le nom de la première équipe, puis une fois que je l'ai saisie, elle doit me demander le nom de la deuxième (à l'endroit du Get_line), etc... en affichant "equipe 1 ? :" et en me proposant de la saisir.
Or quand je lance le programme, il affiche "equipe 1 :" puis sans me demander d'intervenir il passe à la ligne et affiche "equipe 2:" et là il me propose d'en saisir le nom.

Si ça vous fait pas pareil (pour ceux qui auraient essayé eux-mêmes), c'est sans doute que j'ai un bug avec mon pc mais si ça vous fait pareil et que quelqu'un sait pourquoi ..... j'attendrai !