IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Free Pascal Discussion :

Output est vide [Free Pascal]


Sujet :

Free Pascal

  1. #1
    Candidat au Club
    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 : 4
    Points
    4
    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
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 062
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 062
    Points : 15 353
    Points
    15 353
    Billets dans le blog
    9
    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
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  3. #3
    Candidat au Club
    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 : 4
    Points
    4
    Par défaut
    Merci, ca marche maintenant.

  4. #4
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 062
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 062
    Points : 15 353
    Points
    15 353
    Billets dans le blog
    9
    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.
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

+ 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, 15h14
  2. Tester si une table est vide
    Par rsc dans le forum SQL
    Réponses: 2
    Dernier message: 01/07/2004, 17h25
  3. [JDBC]tester si une table est vide
    Par zozolh2 dans le forum JDBC
    Réponses: 5
    Dernier message: 28/05/2004, 10h17
  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, 12h40
  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, 19h26

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