Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1
    Invité de passage
    Femme Profil pro
    Inscrit en
    décembre 2012
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme

    Informations forums :
    Inscription : décembre 2012
    Messages : 6
    Points : 0
    Points
    0

    Par défaut Output est vide

    Bonjour,

    Sur le programme ci-dessous, quelle que soit la valeur initiale de A (même 482), la question sera au moins posée une fois (plus si vous désobéissez). Mais quand j'exécute le code en désobéissant, rien ne se passe. Quelqu'un peut svp m'expliquer pourquoi ?
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    PROGRAM jeu_simpliste (input,output);  
    VAR
      a : integer; 
    BEGIN
      writeln('Entrez le nombre 482');  
      REPEAT 
        readln(a)  
      UNTIL a = 482;  
      writeln('C''est gentil de m''avoir obéi')  
    END.

  2. #2
    Rédacteur/Modérateur
    Avatar de Roland Chastain
    Homme Profil pro Roland Chastain
    Inscrit en
    décembre 2011
    Messages
    1 341
    Détails du profil
    Informations personnelles :
    Nom : Homme Roland Chastain
    Âge : 41
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 341
    Points : 3 678
    Points
    3 678

    Par défaut

    Bonjour !

    Il se passe ce qui doit se passer, à savoir que le programme attend une nouvelle saisie.

    Ce sera plus clair comme ça :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    PROGRAM jeu_simpliste (input, output); 
     
    VAR
      a : integer; 
     
    BEGIN
      //writeln('Entrez le nombre 482'); 
      REPEAT
        writeln('Entrez le nombre 482'); 
        readln(a) 
      UNTIL a = 482; 
      writeln('C''est gentil de m''avoir obéi') 
    END
    L'Art est long et le Temps est court.

  3. #3
    Invité de passage
    Femme Profil pro
    Inscrit en
    décembre 2012
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme

    Informations forums :
    Inscription : décembre 2012
    Messages : 6
    Points : 0
    Points
    0

    Par défaut

    Merci, ca marche maintenant.

  4. #4
    Rédacteur/Modérateur
    Avatar de Roland Chastain
    Homme Profil pro Roland Chastain
    Inscrit en
    décembre 2011
    Messages
    1 341
    Détails du profil
    Informations personnelles :
    Nom : Homme Roland Chastain
    Âge : 41
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 341
    Points : 3 678
    Points
    3 678

    Par défaut

    Je me permets de proposer deux petites améliorations : 1° le nombre est tiré au hasard 2° en cas de mauvaise réponse un message adapté s'affiche.

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    program JeuSimple(input, output);
     
    uses
      SysUtils; // pour disposer de la fonction IntToStr()
     
    var
      a : integer;
      n : integer;
     
    begin
      Randomize;
      n := Random(1000);
      repeat
        WriteLn('Entrez le nombre '+IntToStr(n)+' !');
        ReadLn(a);
        if a <> n then Write('J''ai dit : ');
      until a = n;
      WriteLn('C''est gentil de m''avoir obei.');
      WriteLn('Appuyez sur la touche Entree...');
      ReadLn;
    end.
    L'Art est long et le Temps est court.

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •