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 Delphi Discussion :

Boucle for avec incrément supérieur à 1


Sujet :

Langage Delphi

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Août 2005
    Messages
    144
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 144
    Points : 47
    Points
    47
    Par défaut Boucle for avec incrément supérieur à 1
    Bonjour,

    Y a t il un moyen en Delphi de faire une boucle for avec un incrément de pas de 3.

    Je sait le faire en PHP mais en delphi...

    Merci d'avance,

    Laurent

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 475
    Points : 24 933
    Points
    24 933
    Par défaut
    Soit écrire un While
    Soit faire "iReel := iFor * 3"
    Soit il faut te faire soigner, si tu tente
    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
     
    procedure ForDeMalade();
    var
      I: Integer;
    begin
      for I := 0 to 9+2 do // 9 la limite voulu, +2 pour la tricherie
      begin
        ShowMessage(IntToStr(I));
        // Inc(I);
        asm
          INC EBX;
          INC EBX;
        end;
      end;
    end;
    Moi aussi, j'étais habitué au langage des calculatrices HP, et tu pouvais fixer le STEP, cela m'a aussi étonné que l'on ne puisse pas le faire en Delphi, mais en 10 ans, je m'y suis fait
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre chevronné

    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2009
    Messages
    935
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2009
    Messages : 935
    Points : 1 765
    Points
    1 765
    Par défaut
    Citation Envoyé par ShaiLeTroll Voir le message
    Soit écrire un While
    Soit faire "iReel := iFor * 3"

    Moi aussi, j'étais habitué au langage des calculatrices HP, et tu pouvais fixer le STEP, cela m'a aussi étonné que l'on ne puisse pas le faire en Delphi, mais en 10 ans, je m'y suis fait
    Le mieux je pense, c'est de multiplier par 3 ...
    Je programmais aussi sur calculatrice, meme remarque ...

    Mais en fait, je trouve assez rare d'utiliser un incrément différent de 1 ...

  4. #4
    Inactif
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 182
    Points : 212
    Points
    212
    Par défaut step..
    les jeunes
    Cela ne vient pas des HP mais du basic
    car il n'existait pas de while ou repeat alors le For etait muscle

    I y a Fullspeed qui me souffle a l'oreille

    Toujours préférer le repeat à un for ou un while (quand c'est possioble)
    (et cela l'est toujours)
    SAUF avec Delphi car seules les boucles For sont optimis"es
    (les petits malins verront que D6 les remplace par des repeat;:

    Shai: c'est très vilain de faire comme tu le dis. Je suis sup que c'est un programmeur C++ qui te l'as appris

    Boris
    Papy

    Nul ne pourra jamais vous empêchez d'être libre.

  5. #5
    Membre éclairé Avatar de peter27x
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    1 029
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 029
    Points : 757
    Points
    757
    Par défaut
    Moi aussi je trouve que le mieux c'est de multiplier par 3 (par ex. si tu voulais faire "step 3"):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    for i := 0 to 4 do
    begin
      j := i * 3;
     
      // et là tu as plus qu'à utiliser j... qui vaudra 0,3,6,9 et enfin 12 (pour i = 0,1,2,3,4)
      ...
    end;

  6. #6
    Membre du Club
    Profil pro
    Inscrit en
    Août 2005
    Messages
    144
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 144
    Points : 47
    Points
    47
    Par défaut
    Merci à tous.

    C'est ok avec la dernière solution.

    Laurent

  7. #7
    Membre expérimenté
    Avatar de sat83
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2004
    Messages
    1 040
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Mars 2004
    Messages : 1 040
    Points : 1 307
    Points
    1 307
    Par défaut
    Je n'ai pas Delphi sous la main, mais si mes souvenirs sont bons, il est possible de spécifier directement le pas d'incrément :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    for i:=0 to 100 step 3 do
    begin
    //
    end;
    Ce que l'on apprend par l'effort reste toujours ancré plus longtemps...

  8. #8
    Expert éminent sénior
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Points : 10 008
    Points
    10 008
    Par défaut
    Citation Envoyé par sat83 Voir le message
    Je n'ai pas Delphi sous la main, mais si mes souvenirs sont bons, il est possible de spécifier directement le pas d'incrément :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    for i:=0 to 100 step 3 do
    begin
    //
    end;
    Non pas du tout, le step n'a jamais existé sous Delphi.

  9. #9
    Membre éclairé Avatar de peter27x
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    1 029
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 029
    Points : 757
    Points
    757
    Par défaut
    Citation Envoyé par sat83 Voir le message
    Je n'ai pas Delphi sous la main, mais si mes souvenirs sont bons, il est possible de spécifier directement le pas d'incrément :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    for i:=0 to 100 step 3 do
    begin
    //
    end;

    LOL tes souvenirs sont sûrement oniriques.

  10. #10
    Membre éclairé Avatar de peter27x
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    1 029
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 029
    Points : 757
    Points
    757
    Par défaut
    Citation Envoyé par Cl@udius Voir le message
    Non pas du tout, le step n'a jamais existé sous Delphi.
    Ou bien : la steppe n'a jamais existé sous Delphine.

    Delphine ? Ma voisine de 150kg.

  11. #11
    Inactif
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 182
    Points : 212
    Points
    212
    Par défaut dernier mot
    C'est exactement se que l'optimiseur fait lorsqu'il inverse les boucles
    il creer un nouvel indice different de I
    Boris
    Papy

    Nul ne pourra jamais vous empêchez d'être libre.

  12. #12
    Membre chevronné

    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2009
    Messages
    935
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2009
    Messages : 935
    Points : 1 765
    Points
    1 765
    Par défaut
    Citation Envoyé par FullSpeed Voir le message
    les jeunes
    Cela ne vient pas des HP mais du basic
    car il n'existait pas de while ou repeat alors le For etait muscle

    I y a Fullspeed qui me souffle a l'oreille

    Toujours préférer le repeat à un for ou un while (quand c'est possioble)
    (et cela l'est toujours)
    SAUF avec Delphi car seules les boucles For sont optimis"es
    (les petits malins verront que D6 les remplace par des repeat;:

    Shai: c'est très vilain de faire comme tu le dis. Je suis sup que c'est un programmeur C++ qui te l'as appris

    Boris

    1 > Je n'ai jamais parlé de HP ... Je programmais sur TI en TIBasic
    2 > Le while ET le repeat existent en TIBasic, ainsi que le for avec incrément différent de 1
    3 > rien que pour la compréhension et la lisibilité, je préfererai toujours un for a un repeat ou un while

  13. #13
    Membre éclairé Avatar de peter27x
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    1 029
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 029
    Points : 757
    Points
    757
    Par défaut
    Citation Envoyé par mick605 Voir le message
    1 > Je n'ai jamais parlé de HP ... Je programmais sur TI en TIBasic
    2 > Le while ET le repeat existent en TIBasic, ainsi que le for avec incrément différent de 1
    3 > rien que pour la compréhension et la lisibilité, je préfererai toujours un for a un repeat ou un while
    C'est donc bien là ce que tu penses dans ton for intérieur ?


  14. #14
    Membre à l'essai
    Profil pro
    Inscrit en
    Avril 2002
    Messages
    16
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2002
    Messages : 16
    Points : 21
    Points
    21
    Par défaut For i Step 3
    Bonjour.

    Moi aussi je voulais lire un fichier texte "pas à pas" par saut de 3 donc.. Après réflexion j'ai écris cela et.. ça marche puisque (cerveau tordu !!) si on divise le "pas" par 3 et s'il n'y a pas de partie décimale, on est sur un multiple de 3 !!!

    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
    function decoupe(chaine:string);
    var
      i:integer;
      m,n:real;
      Longueur: Integer;
    begin
      Longueur := Length(chaine);
      i:=0;
      while i<longueur+1 do
      begin
        m:=i / 3;
        n:=round(i / 3);
        if m-n=0 then
        begin
          // Multiple de 3    
        end;
        i:=i+1;
      end;
    end;

  15. #15
    Membre émérite
    Avatar de ALWEBER
    Homme Profil pro
    Expert Delphi
    Inscrit en
    Mars 2006
    Messages
    1 496
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Expert Delphi

    Informations forums :
    Inscription : Mars 2006
    Messages : 1 496
    Points : 2 762
    Points
    2 762
    Billets dans le blog
    10
    Par défaut
    La réponse de chatgpt :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    program BoucleForStepModulo;
     
    var
      i: integer;
     
    begin
      // Boucle de 1 à 100 par pas de 3
      for i := 1 to 100 do
      begin
        // Vérifie si i est divisible par 3 en utilisant le modulo
        if (i mod 3 = 0) then
          writeln(i);
      end;
    end.

  16. #16
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 717
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 717
    Points : 13 196
    Points
    13 196
    Par défaut
    Et si tu faisais juste i := i +3

    ps: comparer des réels sans epsilon est voué à l'échec.

  17. #17
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 475
    Points : 24 933
    Points
    24 933
    Par défaut
    Tu devrais créer un nouveau sujet sur l'objectif réel de ta fonction decoupe, on pourrait réfléchir peut-être à un algo plus adapté (surtout que ce sujet est déjà marqué comme résolu)


    on peut aussi écrire Inc(i, 3); qui aurait ma préférence dans une boucle, cette syntaxe attire l'œil plus qu'un i := i + 3;


    comment gères-tu le cas du reliquat ?

    Tu commences à zéro, pour une chaine ? tu n'utilise que des fonctions zero-based par la suite ?

    Tu arrives à la fin, la longueur de la chaine (soit le dernier élément) n'est pas un multiple de 3, tu dois penser à ne traiter que les caractères restants sans dépasser.


    il semble plus prudent d'écrire un while, permettant plus de liberté que contourner le for ! non ?

    Pourquoi écrire des divisions ou du modulo, opération lente lorsque l'on peut travailler avec de simple addition ?

    la réponse de ChapGPT est loin du compte, une boucle à itération statique au lieu d'une longueur de chaine, c'est bien cet outil, cela va créer une nouvelle génération de développeur encore plus débile que celle qui ne connait pas la touche F1, le fossé entre les bons développeurs et la grande majorité constituée des développeurs moyens voire médiocres ne va que se creuser. Déjà que beaucoup ne savent pas faire une recherche Google qui solutionne 99% des problèmes selon mon expérience, il n'y aura même plus d'effort à fournir vers le beau métier de Prompt Engineer

    le temps avec mod c'est 3 fois plus lent sur la boucle nue, c'est affligeant !
    Cependant, le temps de boucle peut sembler négligeable lorsque l'on manipule des chaines, l'écart se réduit à 20% de plus avec 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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    var
      I, RMod, RInc: Integer;
      K, KMod, KInc: Int64;
      TickStart, TickEnd, TickPerSec: Int64;
      TimeMod, TimeInc: Double;
      S, SRMod, SRInc: string;
    begin
      QueryPerformanceFrequency(TickPerSec);
     
      SetLength(S, 10000);
      for I := 1 to Length(S) do
        S[I] := Chr(Ord('0') + (I mod 10));
     
      QueryPerformanceCounter(TickStart);
     
      KMod := 0;
      // stupide de commencer à 1 avec (i mod 3 = 0) puisque cela est True qu'à partir de 3 !
      for I := 3 to Length(S) do
      begin
        // Vérifie si i est divisible par 3 en utilisant le modulo
        if (I mod 3 = 0) then
          Inc(KMod);
      end;
     
      QueryPerformanceCounter(TickEnd);
      TimeMod := (TickEnd - TickStart) / TickPerSec * MSecsPerSec;
     
      QueryPerformanceCounter(TickStart);
     
      KInc := 0;
      I := 3; // On commence avec un multiple de 3, soit 0 soit 3 selon le besoin
      while I <= Length(S) do
      begin
        inc(KInc);
     
        Inc(I, 3);
      end;
     
      QueryPerformanceCounter(TickEnd);
     
      TimeInc := (TickEnd - TickStart) / TickPerSec * MSecsPerSec;
      ShowMessage(KMod.ToString() + ' -> ' + TimeMod.ToString()
        + sLineBreak + KInc.ToString() + ' -> ' + TimeInc.ToString()
        + sLineBreak + (TimeMod / TimeInc).ToString());
     
      QueryPerformanceCounter(TickStart);
     
      KMod := 0;
      RMod := 3;
      // stupide de commencer à 1 avec (i mod 3 = 0) puisque cela est True qu'à partir de 3 !
      for i := 3 to Length(S) do
      begin
        // Vérifie si i est divisible par 3 en utilisant le modulo
        if (i mod 3 = 0) then
        begin
          K := Copy(S, I - 2, 3).ToInteger();
          Inc(KMod, K);
     
          RMod := I;
        end;
      end;
      if RMod <= Length(S) then
        SRMod := Copy(S, RMod, Length(S) - RMod + 1);
     
      QueryPerformanceCounter(TickEnd);
      TimeMod := (TickEnd - TickStart) / TickPerSec * MSecsPerSec;
     
      QueryPerformanceCounter(TickStart);
     
      KInc := 0;
      I := 3; // On commence avec un multiple de 3, soit 0 soit 3 selon le besoin
      RInc := I;
      while I <= Length(S) do
      begin
        // Vérifie si i est divisible par 3 en utilisant le modulo
        K := Copy(S, I - 2, 3).ToInteger();
        Inc(KInc, K);
     
        RInc := I;
        Inc(I, 3);
      end;
      if RInc <= Length(S) then
        SRInc := Copy(S, RInc, Length(S) - RInc + 1);
     
      QueryPerformanceCounter(TickEnd);
     
      TimeInc := (TickEnd - TickStart) / TickPerSec * MSecsPerSec;
      ShowMessage(KMod.ToString() + ' -> ' + TimeMod.ToString() + ' + ' + SRMod
        + sLineBreak + KInc.ToString() + ' -> ' + TimeInc.ToString() + ' + ' + SRInc
        + sLineBreak + (TimeMod / TimeInc).ToString());
     
    end;
    SRMod et SRInc montre le reliquat non traité dans la boucle à éventuellement prendre en compte
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  18. #18
    Membre émérite
    Avatar de ALWEBER
    Homme Profil pro
    Expert Delphi
    Inscrit en
    Mars 2006
    Messages
    1 496
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Expert Delphi

    Informations forums :
    Inscription : Mars 2006
    Messages : 1 496
    Points : 2 762
    Points
    2 762
    Billets dans le blog
    10
    Par défaut
    Citation Envoyé par ShaiLeTroll Voir le message
    la réponse de ChapGPT est loin du compte, une boucle à itération statique au lieu d'une longueur de chaine, c'est bien cet outil, cela va créer une nouvelle génération de développeur encore plus débile que celle qui ne connait pas la touche F1, le fossé entre les bons développeurs et la grande majorité constituée des développeurs moyens voire médiocres ne va que se creuser. Déjà que beaucoup ne savent pas faire une recherche Google qui solutionne 99% des problèmes selon mon expérience, il n'y aura même plus d'effort à fournir vers le beau métier de Prompt Engineer
    ChapGPT répond correctement dans 70% des cas selon mon expérience et aussi si tu lui pose la bonne question ... La partie résiduelle n'est pas traitée ici mais peut l’être aisément

    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 BoucleForStepModulo;
    var
      i: integer;
      .../...
    begin
      for i := 1 to  Length(chaine) do
      begin
        // Vérifie si i est divisible par 3 en utilisant le modulo
        if (i mod 3 = 0) then
        begin
          // Multiple de 3    
        end;
      end;
    end.

  19. #19
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 717
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 717
    Points : 13 196
    Points
    13 196
    Par défaut
    Citation Envoyé par ShaiLeTroll Voir le message
    on peut aussi écrire Inc(i, 3); qui aurait ma préférence dans une boucle, cette syntaxe attire l'œil plus qu'un i := i + 3;
    C'était plus pour exprimer le côté mathématique de la chose

  20. #20
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 433
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 433
    Points : 5 842
    Points
    5 842
    Par défaut
    Bonjour
    algorithmiquement parlant
    la boucle for et while sont identique
    le for n'est qu'une spécialisation du while
    qui dit spécialisation dit aussi optimisation

    il y a une multitude de choix mais les principeaux sont donc

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    i:=0 ;
    While i < Value do 
    Begin 
       // j:= i DIV 3 
       // Ici je fais ce que j'ai à faire 
        Inc(i,3) ;//3;6;9;...
    End;
    L'autre solution

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    i:=0 ;
    MaxVal := (Value Div 3); 
    For j := 0 to  MaxVal Do 
    Begin
       I:= J*3;//0;3;6;9;....
       // Ici je fais ce que j'ai à faire  
       // Inc(i,3) ;//3;6;9;...
    End;
    A toi de voir ce que tu préfère comme syntaxe
    le "repeat until" est un peu diffèrent
    il passe au moins une fois dans la boucle
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

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

Discussions similaires

  1. Boucle for avec références dépendant de l'incrément
    Par RQuet dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 17/10/2013, 16h20
  2. Double boucle for avec incrémentation
    Par dubis dans le forum Shell et commandes GNU
    Réponses: 3
    Dernier message: 12/04/2013, 13h29
  3. Boucle for avec incrémentation de variable en shell
    Par Ariania dans le forum Shell et commandes GNU
    Réponses: 1
    Dernier message: 09/08/2012, 11h27
  4. [Smarty] Boucle FOR avec incrémentation
    Par HwRZxLc4 dans le forum Bibliothèques et frameworks
    Réponses: 2
    Dernier message: 28/07/2010, 20h31
  5. Réponses: 2
    Dernier message: 14/04/2010, 18h39

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