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

Pascal Discussion :

[Débutant] Problème de lecture au clavier


Sujet :

Pascal

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 4
    Points : 2
    Points
    2
    Par défaut [Débutant] Problème de lecture au clavier
    Bonjour à tous,
    Je débute totalement en prog est j'essaies d'apprendre avec des tutos sur le net, ce qui m'a amené à vouloir réaliser un petit programme pour amuser mes enfants, mais voilà quelque chose ne fonctionne pas bien et je n' arrive pas à résoudre le problème. Je n'attends pas forcément une réponse toute faite mais au moins des avis pour savoir si la structure de mon prog est bonne et si il y a une autre manière de faire plus simple ou plus correcte. Merci par avance pour vos commentaires... tout seul ca n'est vraiment pas évident de débuter surtout quand ca n' est pas forcément son domaine de prédilection .
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    progran qui_es_tu ;
    uses crt ;
    var prenom : string ;
         reponse : char ;
     
    BEGIN
     
       repeat
     
          clrscr ;
          write('entrez votre prénom :') ;
          readln(prenom) ;
     
              if prenom = 'marc' 
              then
                 begin
                    write('blablabla') ;
                    readkey ;
                  end
               else
               if prenom = 'julie'
               then
                  begin
                     write('reblablabla') ;
                     readkey;
                   end
                else
                  write('vous etes inconnu de ce programme.') ;
                  readkey ;
     
                clrscr ;
                write('continuez [o,n] ? : ') ;
                read(reponse) ;
     
       until reponse = 'n' ;
     
    END.
    Mon problème est que quand je recommence avec 'o' il s'affiche :" entrez votre prénom : vous etes inconnu de ce programme " si j appuie sur entrer pour recommencer ca m'affiche :"entrer votre prenom :" mais là quelque soit le prenom que je tape ca m'affiche :"vous etes inconnu de ce programme"...
    J'avoues etre un peu perdu... si quelquun a une idée merci d'avance.

  2. #2
    Expert confirmé

    Inscrit en
    Août 2006
    Messages
    3 942
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 3 942
    Points : 5 654
    Points
    5 654
    Par défaut
    Gio,

    Je n'ai que jeté un petit coup d'oeil, mais je vois que tu utilises Read pour lire des données au clavier.

    On en a souvent parlé, car ça pose des problèmes.

    Il faut utiliser ReadLn dans ce cas.

    Pense à encadrer ton code par les balises [ code] [ /code], sans les espaces qui ne servent ici qu'à les désactiver.
    Si les cons volaient, il ferait nuit à midi.

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 4
    Points : 2
    Points
    2
    Par défaut merci
    merci beaucoup, en remplacant le dernier read par readln ca marche... j'aimerais juste comprendre pourquoi? readln ne fait pas que lire et aller à la ligne ?
    en tous cas merci !

  4. #4
    Candidat au Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    Au fait es ce que la structure est correcte ?

  5. #5
    Responsable Pascal, Lazarus et Assembleur


    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2003
    Messages
    7 938
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2003
    Messages : 7 938
    Points : 59 416
    Points
    59 416
    Billets dans le blog
    2
    Par défaut
    Bonjour !
    Citation Envoyé par -papinou- Voir le message
    en remplacant le dernier read par readln ca marche... j'aimerais juste comprendre pourquoi? readln ne fait pas que lire et aller à la ligne ?
    L'explication (prochainement incluse dans la FAQ) a été donnée par Wormful_Sickfoot dans ce sujet :
    http://www.developpez.net/forums/sho...ghlight=readln

    Citation Envoyé par -papinou-
    Au fait es ce que la structure est correcte ?
    Ca me semble tenir la route. Le readkey étant exécuté dans tous les cas de figure, tu pourrais le mettre une seule fois, avant le clrscr.

    Règles du forum
    Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
    Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
    Mes tutoriels et sources Pascal

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]
    La tolérance atteindra un tel niveau que les personnes intelligentes seront interdites de toute réflexion afin de ne pas offenser les imbéciles. [Fiodor Mikhaïlovitch Dostoïevski]

  6. #6
    Candidat au Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    ok, merci pour ces précisions et pour votre aide.
    trés bon site grace auquel j'ai trouvé un tuto(corrigé)qui m' a permis de mettre un pied dans un autre monde ...
    Merci à tous !

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 11/09/2007, 17h03
  2. [débutant] lecture entree clavier
    Par bendamen dans le forum Langage
    Réponses: 2
    Dernier message: 07/05/2007, 09h24
  3. Réponses: 7
    Dernier message: 13/03/2007, 11h20
  4. Problème de lecture d'un entier au clavier
    Par Yakurena dans le forum C
    Réponses: 11
    Dernier message: 18/07/2005, 08h44
  5. [débutant] problème de lecture d'image
    Par shura dans le forum OpenGL
    Réponses: 16
    Dernier message: 03/07/2004, 18h05

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