Répondre à la discussion
Affichage des résultats 1 à 1 sur 1

ADA se trompe ???



  1. #1
    jameswell

    ADA se trompe ???


    ------

    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 !

    -----

  2. 📣 Nouveau projet éditorial de Futura
    🔥🧠 Le Mag Futura est lancé, découvrez notre 1er magazine papier

    Une belle revue de plus de 200 pages et 4 dossiers scientifiques pour tout comprendre à la science qui fera le futur. Nous avons besoin de vous 🙏 pour nous aider à le lancer...

    👉 Je découvre le projet

    Quatre questions à explorer en 2022 :
    → Quels mystères nous cache encore la Lune 🌙 ?
    → Pourra-t-on bientôt tout guérir grâce aux gènes 👩‍⚕️?
    → Comment nourrir le monde sans le détruire 🌍 ?
    → L’intelligence artificielle peut-elle devenir vraiment intelligente 🤖 ?

Discussions similaires

  1. trompe d'eustache
    Par biscotte91 dans le forum Biologie
    Réponses: 2
    Dernier message: 17/05/2007, 01h01
  2. trompe à eau ?
    Par Moi.5 dans le forum Chimie
    Réponses: 3
    Dernier message: 01/11/2006, 22h45
  3. Nombre de lettres (ada)
    Par delphinounette dans le forum Internet - Réseau - Sécurité générale
    Réponses: 3
    Dernier message: 08/12/2005, 19h40
  4. petit pb avec ADA ..
    Par Yuna66 dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 04/01/2005, 23h01