Discussion :

[Jasmine80]

J'ai un problème avec ma boucle while

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
use strict;
use warnings;
 
my $val = 0;
 
while($val < 65 ){
    $val += 3;
 
    if($val > 65){
        $val -= 3;
        last;
    }
 
}
 
# 63 => 66

A chaque passage, j'ajoute 3 jusqu'à ce que j'obtienne le nombre le plus proche mais INFÉRIEUR à 65. Donc, quand j'arrive à 63 si l'ajout suivant fait dépasser le seuil de 65, je ne dois pas effectuer l'opération. Par contre, si l'ajout avait été de 2, j'aurais dû le faire.

Le problème réel est plus compliqué et le j'appelle un sous-programme qui me renvoie une valeur croissante au cours du temps. Je ne peux donc pas faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
use strict;
use warnings;
 
my $val = 0;
 
while(($val += 3) < 65 ){
 
}

Merci pour votre aide,

[Arioch]

Hello,

le pb que je vois dans ta boucle while, c'est que si ton total > 65, tu retire 3. Tant que total < 65, tu rajoute 3.

Si total = 64, dans la boucle ton programme va rajouter 3, donc total = 67.
Ensuite, tjs dans la boucle, ton programme va retirer 3 puis total est > 65.

Total repasse à 64 et voilà comment on fait mumuse avec une boucle infinie

[Jasmine80]

le pb que je vois dans ta boucle while, c'est que si ton total > 65, tu retire 3. Tant que total < 65, tu rajoute 3.

Si total = 64, dans la boucle ton programme va rajouter 3, donc total = 67.
Ensuite, tjs dans la boucle, ton programme va retirer 3 puis total est > 65.

Total repasse à 64 et voilà comment on fait mumuse avec une boucle infinie

... en effet, d'où le last dans ma boucle if($val > 65)

[Arioch]

oups, je commence à rouiller en Perl

[Carlozi]

Bonjour,

Pourrais-tu expliquer ton problème car là l'énoncé n'est pas clair.

Merci.

Carlozi.

[Jasmine80]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
 
my $val = 0;
 
while($val < 65 ){
    $val += 3;
 
    if($val > 65){
        $val -= 3;
        last;
    }
    print "$val\n";
}

Je cherche à simplifier ce script qui affiche les valeurs de 3 à 63 mais sans utiliser while(($val += 3) < 65 ).
Je cherche un moyen de supprimer le if($val > 65) mais je pense que c'est impossible.