Discussion :

[Gnux]

Bonjour
Commencant en perl j'ai un programme tout bete qui me calcule si le nombre que j'entre est pair ou non:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
#petit prog destiné a verifier la parité d'un nombre.
 
printf ("Rentrez un nombre: \n");
chomp($A=<STDIN>);
 
if ($A%2==0)
   {
        print ("$A est un nombre pair\n");
   }
else
   {
        print ("$A est un nombre impair\n");
   }

Seulement voila: si l'on rentre une lettre au lieu d'un nombre le comportement devient n'importe quoi j'aurais donc aimé rajouter une clause elsif précisant que si $A n'est pas un entier, l'utilisateur doit recommencer en saisissant un nombre entier.
Donc un elsif qui permette de clarifier le type de $A tout en me permettant de revenir au début mon problème étant que je ne sais pas comment l'écrire en perl
de vos idées

[shwin]

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
 
 
sub IsNumeric {
        my $InputString = shift;
 
        if ($InputString !~ /^[0-9|.|,]*$/) {
                return 0;
        }
        else {
                return 1;
        }
    }
 
 
my $A = 5.2;
if (IsNumeric($A)) {
        if ($A%2)
        {   
                warn "$A est un nombre pair\n";
        }
        else
        {
                warn "$A est un nombre impair\n";
        }
} else { 
        warn "pas un nombre"; 
}

[Gnux]

Bonsoir
il me faudrait créer une fonction rien que pour ça
Sinon j'avoue que je ne comprends pas très bien l'expression régulière: !~ /^[0-9|.|,]*$/ sur le début le !~
Qt à warn:

Code :

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

1
2
$ perldoc warn
No documentation found for "warn".

Tu pourrais commenter ta solution s'il te plait?

[djibril]

Bonjour
Commencant en perl j'ai un programme tout bete qui me calcule si le nombre que j'entre est pair ou non:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
#petit prog destiné a verifier la parité d'un nombre.
 
printf ("Rentrez un nombre: \n");
chomp($A=<STDIN>);
 
if ($A%2==0)
   {
        print ("$A est un nombre pair\n");
   }
else
   {
        print ("$A est un nombre impair\n");
   }

Seulement voila: si l'on rentre une lettre au lieu d'un nombre le comportement devient n'importe quoi j'aurais donc aimé rajouter une clause elsif précisant que si $A n'est pas un entier, l'utilisateur doit recommencer en saisissant un nombre entier.
Donc un elsif qui permette de clarifier le type de $A tout en me permettant de revenir au début mon problème étant que je ne sais pas comment l'écrire en perl
de vos idées

non y a plus simple

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
#!/usr/bin/perl -w
#petit prog destiné a verifier la parité d'un nombre.
 
printf ("Rentrez un nombre: \n");
chomp($A=<STDIN>);
 
if ($A ~= /^\d+$/) {
        if ($A%2==0)    {
        print ("$A est un nombre pair\n");
        } else {
        print ("$A est un nombre impair\n");
       }
} else{
print "$A n'est pas un chiffre\n";
}

[tfe]

Code :

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

print ($variable%2 ? "impair": "paire");

[Gnux]

Code :

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

print ($variable%2 ? "impair": "paire");

J'avoue que j'ai de la peine à comprendre cet opérateur: si l'expression $var%2 est vraie ça retourne impaire c ça? Et si elle est fausse c'est pair.
Mon interrogation porte sur l'évaluation de la variable: à savoir si en perl une variable est dite vraie qut elle est évaluée à 1 ou à 0 ? Car si je fais un prog de test genre:

Code :

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

1
2
3
4
#!/usr/bin/perl -w
use strict;
$var=2;
print ($var%2 ? "impair" : "pair");

J'obtiens pair ce qui veut dire que par l'interpréteur $var%2 a été interprété comme faux et donc qd perl une variable vraie retourne 1car si je mets 3 j'ai bien impair. Ca me semble bizarre (j'ai peut être trop l'habitude du return 0 )
En tout cas merci pour votre aide
PS:une dernière chose comment insérer un retour chariot pour l'affichage du résultat de l'opérateur ternaire?

[2Eurocents]

Pour ce qui est de l'expression

Code :

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

($a%2)?"impair":"pair"

son fonctionnement est rigoureusement identique à celui du C !!

Si ce qui précède le ? est vrai, on prend la valeur d'avant le :.
Si c'est faux, on prend ce qui suit le :.

Ta difficulté porte en fait sur le ($a%2) qui est le reste de la division entière de $a par 2.

Si $a est pair, son reste de division par 2 est 0, ce qui logiquement se traduit par faux.
Si $a est impair, son reste de division par 2 est 1, ce qui donne la valeur logique vraie (est vraie toute valeur différente de 0, de "" et de undef).

C'est là qu'est la difficulté



Sinon, il n'y a pas que le calcul pour savoir si un nombre est pair
Il y a aussi

Code :

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

/\d[02468]$/

P.S. pour ton retour chariot, tu peux utiliser, au choix :

Code :

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

print "Le nombre est ".(($a%2)?"impair":"pair")."\n";

ou

Code :

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

printf ("Le nombre est %s\n", ($a%2)?"impair":"pair");

[2Eurocents]

Et pour compèter et répondre à ton problème initial, tu n'as pas réellement besoin d'un elseif

Algorithmiquement, tout se résoud avec une boucle à condition terminale (type do {} while).

Enjoy :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
 
use warnings;
use strict;
 
my $a;
 
do {
  print ("Entrez un nombre :");
  chomp ($a=<>);
} while ($a !~ /^\d+$/);
 
print ("Le nombre est ".(($a%2)?"impair":"pair")."\n");

8)