Discussion :

[ngassa]

bonjour
je souhaite ecrire une petit programme en perl (je suis debutant en programmation perl)qui me test si un nombre est premier. : nous s'avons que un nombre premier s'il possède uniquement deux diviseur (1 et lui même)

voici le code que j 'ai ecris mais il ne fonctionne pas

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
print "donnez un nombre : ?";
$nombre = <STDIN>;        # lecture clavier
chomp($nombre);
 
print " $nombre est premier " if (premier()==1);
print  "$nombre n'est pas premier" unless (premier()==0;)
 
 
sub premier{
 
my ($nomb)=@_;
#je teste les nombres impairs car tous les nombres pair ne sont pas #premier
for($i=3;$i<$nomb/2;$i++) {
 
   if (($nomb%$i)==0){ return 1;}
 
 
   else return 0;
 
 
}
 
 
 
}

[Edit]
Ajout des balises [ code ] et [ /code ] par 2Eurocents
[/Edit]

[djibril]

voici le code que j 'ai ecris mais il ne fonctionne pas

print "donnez un nombre : ?";
$nombre = <STDIN>; # lecture clavier
chomp($nombre);

print " $nombre est premier " if (premier()==1);
print "$nombre n'est pas premier" unless (premier()==0


sub premier{

my ($nomb)=@_;
#je teste les nombres impairs car tous les nombres pair ne sont pas #premier
for($i=3;$i<$nomb/2;$i++) {

if (($nomb%$i)==0){ return 1;}


else return 0;


}
}

ta fonction premier attend un argument
donc ecris plutot

Code :

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

1
2
3
 
print " $nombre est premier " if (premier($nombre)==1);
print  "$nombre n'est pas premier" unless (premier($nombre)==0);

sinon qd tu return 1 ou 0 par ta fonction, tu peux juste effectuer ton test de la façon suivante :

Code :

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

1
2
3
4
 
if (premier($nombre) {
  print " $nombre est premier ";
}else {print  "$nombre n'est pas premier";}

[2Eurocents]

Code :

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

1
2
3
#je teste les nombres impairs car tous les nombres pair ne sont pas #premier
for($i=3;$i<$nomb/2;$i++) {
...

Quand le code et les commentaires se contredisent, les deux sont vraissemblablement faux !

Une boucle dont l'indice est incrémenté (++) parcourera toutes les valeurs, et pas seulement les valeurs paires ou impaires ...

un "$i+=2" serait déjà plus pertinent ...

Sinon, pour améliorer le traitement, un nombre $i n'est pas premier s'il est supérieur à 5 et que soit ($i + 1) % 6 est différent de 0, soit ($i - 1) % 6 est différent de 0.

Cette méthode accélère les choses, même si elle n'est pas suffisante (elle considérerait de nombreux multiples de 5 comme premiers (25, 35, 45, ...) ainsi que d'autres faux positifs (77, alors qu'il est multiple de 7 et 11)).