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 :

Copier un chiffre saisi au clavier dans un tableau [Free Pascal]


Sujet :

Free Pascal

  1. #1
    Nouveau membre du Club
    Profil pro
    Informaticien
    Inscrit en
    Août 2002
    Messages
    40
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Informaticien

    Informations forums :
    Inscription : Août 2002
    Messages : 40
    Points : 37
    Points
    37
    Par défaut Copier un chiffre saisi au clavier dans un tableau
    Bonjour,

    Je suis en train d'apprendre le Pascal. J'aimerais lire un chiffre avec readln par exemple readln(chiffre), chiffre qui est déclaré comme integer. J'aimerais après la lecture, copier ce chiffre dans tableau de façon à pouvoir travailler avec chaque nombre qui compose le chiffre du genre chiffre étant un tableau, j'aimerais par exemple travailler chiffre[i] pour référencer le ième nombre du tableau chiffre.
    Merci d'avance de m'aider.

    Antezi

  2. #2
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 072
    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 072
    Points : 15 462
    Points
    15 462
    Billets dans le blog
    9
    Par défaut
    Bonjour !

    Pour faire ce que vous souhaitez, vous pouvez utiliser div et mod.

    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
    program Exemple;
     
    {$APPTYPE CONSOLE}
     
    var
      i: integer;
     
    begin
      i := 123;
      repeat
        WriteLn(i mod 10);
        i := i div 10;
      until i = 0;
      ReadLn;
    end.
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  3. #3
    Nouveau membre du Club
    Profil pro
    Informaticien
    Inscrit en
    Août 2002
    Messages
    40
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Informaticien

    Informations forums :
    Inscription : Août 2002
    Messages : 40
    Points : 37
    Points
    37
    Par défaut
    Citation Envoyé par Roland Chastain Voir le message
    Bonjour !

    Pour faire ce que vous souhaitez, vous pouvez utiliser div et mod.

    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
    program Exemple;
     
    {$APPTYPE CONSOLE}
     
    var
      i: integer;
     
    begin
      i := 123;
      repeat
        WriteLn(i mod 10);
        i := i div 10;
      until i = 0;
      ReadLn;
    end.
    Merci beaucoup Roland Chastain. Ta réponse a satisfait mes attentes.
    Encore merci

    Antezi

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

Discussions similaires

  1. Saisie de nombres dans un tableau de char
    Par Lyons dans le forum Débuter
    Réponses: 4
    Dernier message: 31/08/2013, 00h43
  2. Réponses: 5
    Dernier message: 27/06/2012, 13h48
  3. Saisie télécommande ou clavier dans une DLL
    Par Sapajou dans le forum API, COM et SDKs
    Réponses: 1
    Dernier message: 09/05/2008, 11h52
  4. Récuperer les saisies clavier dans un fichier texte?
    Par UnSofteuxAmateur dans le forum Delphi
    Réponses: 8
    Dernier message: 25/05/2007, 14h13
  5. Réponses: 13
    Dernier message: 18/05/2007, 16h06

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