p
u
b
l
i
c
i
t
é
publicité

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
    2 003
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 003
    Points : 5 641
    Points
    5 641
    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
    2 003
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 003
    Points : 5 641
    Points
    5 641
    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.

Discussions similaires

  1. tester si le résultat d'une requete est vide
    Par monstour dans le forum ASP
    Réponses: 13
    Dernier message: 04/10/2006, 14h14
  2. Tester si une table est vide
    Par rsc dans le forum SQL
    Réponses: 2
    Dernier message: 01/07/2004, 16h25
  3. [JDBC]tester si une table est vide
    Par zozolh2 dans le forum JDBC
    Réponses: 5
    Dernier message: 28/05/2004, 09h17
  4. Ne pas afficher un champs qui est vide dans ma BD
    Par yoda_style dans le forum ASP
    Réponses: 3
    Dernier message: 27/04/2004, 11h40
  5. [CR] Avoir seulement une page blanche qd la base est vide???
    Par littleChick dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 13/08/2002, 18h26

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