Discussion :

[Munkey74]

Bonjour,

voici l'en-tête de ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
sub estMultiple{
 
 # on récupère les paramètres
 my ($nombre1,$nombre2) = @_;	
 
 ...
 
}

J'aimerai que cette fonction renvoie 1 si $nombre1 est un multiple de $nombre2 0 sinon.

je n'ai aucune idée de comment faire...

[Leishmaniose]

Salut,

Bon je ne suis pas balaise dans les sub mais pour savoir si $nombre1 est multiple de $nombre2 il suffit de :

Code :

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

1
2
3
4
5
6
7
$r = $nombre1 / $nombre2; #Reste de la division
if ($r =~ /^\d+$/) { #Le reste est un entier ou pas ?
  print "$nombre1 est multiple de $nombre2\n"; #changer pour affecter 1 à la variable renvoyée
}
else {
  print "$nombre1 n'est pas multiple de $nombre2\n"; #changer pour affecter 0 à la variable renvoyée
}

Bonne chance...

[Jedai]

C'est là que ça sert d'avoir fait un minimum de maths...

Code :

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

1
2
3
4
5
 
sub estMultiple{
  my ($mult,$div) = @_;
  return not ($mult % $div);	
}

Mais d'habitude on ne fait pas de fonction pour ça puisque utiliser directement l'opérateur "modulo" % est plus simple.

--
Jedaï

[icer]

Précission sur l'opérateur % (modulo):

r = a % b

r à pour valeur le reste de la division euclidienne a / b

Pour revenir à notre probléme
Un nombre b est multiple d'un nombre a si la division a/b = 0.
Autrement dit si a modulo b est égale à 0.

si a % b = 0 alors b divise a