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 :

Table de multiplication


Sujet :

Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2008
    Messages : 30
    Par défaut Table de multiplication
    Bonjour,
    Je m'entraine en pascal et j'aimerai faire un programme qui effectue la table de multiplication d'un nombre. Je sais pas trop comment procéder. Voici comment je fais bien que je sois bloquer.
    Mon code source est en pièce jointe.
    merci d'avance
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé

    Inscrit en
    Août 2006
    Messages
    3 969
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 3 969
    Par défaut
    Hei,

    Pour un petit fichier comme ça, le mieux aurait été de le mettre directement dans ton message.

    Dans le cas concerné, une boucle for est plus appropriée : on connaît d'avance les limites de la boucle...

    Et vu ton code, je ne vois pas trop le résultat désiré, mais quel qu'il soit, la condition de ta boucle while est probablement fausse

    Au passage : une petite mise en forme du code ne fait de mal à personne, bien au contraire. Exemple avec ton code :
    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 table9;
     
    var 
      a, b: Word;
    begin
      Writeln('Quelle table de multiplication voulez-vous connaitre?');
      Readln(a);
      b := 1;
      while (a <= b * 10) do
      begin
        b := b * a;
        b := Succ(b);
      end;
      Readln
    end.

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2008
    Messages : 30
    Par défaut
    je suis en cours et je dois savoir faire afficher la table de 9 avec une boucle while (*condition*) do
    Mais je vois pas comment faire, je débute et le prof a dis qu'on devait essayer.
    merci d'avance

  4. #4
    Membre émérite
    Avatar de CapJack
    Homme Profil pro
    Prof, développeur amateur vaguement éclairé...
    Inscrit en
    Mars 2004
    Messages
    624
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Prof, développeur amateur vaguement éclairé...
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2004
    Messages : 624
    Par défaut
    Hum. "while" signifie "tant que", et non pas "jusqu'à" (ça, c'est "until").

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2008
    Messages : 30
    Par défaut
    je n'ai jamais dis le contraire, mais je dois faire la table de 9 avec while do et pas autres choses.
    merci de votre aide en tout cas.

  6. #6
    Rédacteur
    Avatar de darrylsite
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    1 299
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 299
    Par défaut
    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
     
    program table9;
     
    var 
      a, b: Word;
    begin
      Writeln('Quelle table de multiplication voulez-vous connaitre?');
      Readln(a);
      b := 1;
      while (b <= 10) do
      begin
        writeln(a, ' * ', b, ' = ',  a*b);
        b := Succ(b);
      end;
      Readln
    end.
    le probleme est que tu n' affiche pas le resultat du calcul. il y' a eu aussi la condition du while.

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2008
    Messages : 30
    Par défaut
    comment ça le résultat du calcul? les réponses s'affiche...

  8. #8
    Expert confirmé

    Inscrit en
    Août 2006
    Messages
    3 969
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 3 969
    Par défaut
    Qia,
    Citation Envoyé par nicolasg8 Voir le message
    comment ça le résultat du calcul? les réponses s'affiche...
    Oui, en utilisant le code de darrylsite, qui est bien gentil de te l'avoir donné.

Discussions similaires

  1. [ADO.NET] remplaire datagrid "depuis table relation multiple"
    Par hoda dans le forum Accès aux données
    Réponses: 3
    Dernier message: 05/12/2006, 08h49
  2. Réponses: 1
    Dernier message: 29/09/2006, 10h43
  3. table de multiplication
    Par spacergirly dans le forum Excel
    Réponses: 3
    Dernier message: 21/09/2006, 17h24
  4. [T-SQL] exécuter un ALTER TABLE/COLUM multiple
    Par elderion dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 07/10/2005, 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