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

Langage Pascal Discussion :

Compteur dans une boucle for : comment détecter chaque centaine ?


Sujet :

Langage Pascal

  1. #1
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut Compteur dans une boucle for : comment détecter chaque centaine ?
    Bonjour,

    J'ai un compteur que j'incrémente de 1.

    Je voudrais exécuter un code à chaque centaine.

    Savez-vous comment je peux faire pour détecter chaque centaine ?

    Merci,
    ZiP

  2. #2
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    10 688
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 10 688
    Points : 15 019
    Points
    15 019
    Par défaut
    Yep !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: integer;
    begin
      for i := 1 to 250 do
        if (i mod 100 = 0) then ShowMessage(IntToStr(i));
    end;
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  3. #3
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Bonsoir Jipété,

    Je ne savais pas trop comment faire, merci !

    ZiP

  4. #4
    Membre éprouvé
    Avatar de EpiTouille
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2009
    Messages
    372
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2009
    Messages : 372
    Points : 917
    Points
    917
    Par défaut
    Bonsoir Jipété,

    Je ne savais pas trop comment faire, merci !
    Jipete t'as donne la solution, je ne comprends pas ce qui te pose probleme

    le te permet de savoir si un nombre est une centaine

  5. #5
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Bonjour EpiTouille,

    Comme indiqué, le problème est résolu, je ne savais pas comment faire et Jipété m'a apporté la solution à mon problème

    Cordialement,
    ZiP

  6. #6
    Membre éprouvé
    Avatar de Dr.Who
    Inscrit en
    Septembre 2009
    Messages
    980
    Détails du profil
    Informations personnelles :
    Âge : 45

    Informations forums :
    Inscription : Septembre 2009
    Messages : 980
    Points : 1 294
    Points
    1 294
    Par défaut
    @Zip :

    C'est ici qu'on se rend compte à quel point, les bases des maths sont importantes en programmation (bien qu'on ne vois que rarement le modulo dans un cursus scolaire général).

    toutes les deux boucles :

    (N mod 2) = 0 // s'éxécute toutes les deux boucles : 0,2,4,6,8...
    ou
    (N and 1) = 0 // s’exécute quand N est Pair : 0,2,4,6,8...

    toutes les cinqs :

    (N mod 5) = 0 // 0,5,10,15,20...


    Exécution particulières :

    (N and 1) = 0 // 0,2,4,6,8,10,12... toutes les 2 boucles
    ((N and 2) and 1) = 0 // 0,4,8,12 ... toutes les 4 boucles

    Optimisation ( cas d'exemple N%5 ):

    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
     
    var N, I: integer;
    begin
      I := 0;
      for N := 0 to 1000000000 do
      begin
        // I mod 5 = 0
        if I = 0 then
        begin
           // faire quelque chose
        end;
        inc(I);
        if I = 5 then 
          I := 0;
        // ------------
      end;
    end;
    [ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
    Ma messagerie n'est pas la succursale du forum... merci!

  7. #7
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Bonjour Dr.Who,

    Merci pour ce complément d'information.

    Je n'ai jamais excellé en math

    Cordialement,
    ZiP

  8. #8
    Membre éprouvé
    Avatar de Dr.Who
    Inscrit en
    Septembre 2009
    Messages
    980
    Détails du profil
    Informations personnelles :
    Âge : 45

    Informations forums :
    Inscription : Septembre 2009
    Messages : 980
    Points : 1 294
    Points
    1 294
    Par défaut
    Personnellement moi non plus

    J'ai appris pour programmer ... sur wikipédia
    [ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
    Ma messagerie n'est pas la succursale du forum... merci!

  9. #9
    Membre éprouvé
    Avatar de EpiTouille
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2009
    Messages
    372
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2009
    Messages : 372
    Points : 917
    Points
    917
    Par défaut
    Le modulo est tres utile pour recadre un nombre dans un intervalle de valeure

    exemple : si tu as un tableau de 0 a 10 par exemple nomme t et i un element

    en faisant t[i % taille_tableau] tu es sur de ne jamais sortir du tableau et eviter le segfault

    Avant de programmer je ne connaissais pas le modulo ni les operations logiques, elle me servent tous les jours a present

  10. #10
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Effectivement, c'est très utile !

    Merci,
    ZiP

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 10/03/2015, 06h53
  2. [TPW] Incrémentation du compteur dans une boucle for
    Par sukhoimk dans le forum Turbo Pascal
    Réponses: 5
    Dernier message: 15/07/2011, 18h58
  3. Compteur dans une boucle for
    Par Auteur dans le forum Windows
    Réponses: 1
    Dernier message: 08/07/2010, 02h55
  4. Compteur dans une boucle for
    Par lohot dans le forum Scripts/Batch
    Réponses: 2
    Dernier message: 28/03/2008, 13h19
  5. Réponses: 1
    Dernier message: 22/04/2007, 17h51

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