Discussion: Output est vide [Free Pascal]

  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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Inscrit en
    décembre 2011
    Messages
    1 969
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 969
    Points : 5 784
    Points
    5 784
    Billets dans le blog
    1

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Inscrit en
    décembre 2011
    Messages
    1 969
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 969
    Points : 5 784
    Points
    5 784
    Billets dans le blog
    1

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo