Page 2 sur 2
Re: Savoir par quel nombre est divisible un nombre
Publié : dim. 30/nov./2014 20:37
par Ollivier
Lord Nelson a écrit :0 est divisable par: Rien
Il n'y a pas un chiffre qui soit divisable.
Un nombre est divisable dans le sens où ses chiffres peuvent être séparés.
Exemple: 12345 devient 12 et 345.
C'est un terme plus utilisé pour les modifications cadastrales que pour les mathématiques.
"Divisible" évoque la division arithmétique.
Ensuite 0 est divisible par
tous les nombres non nuls.
0/100 = 0
0/1 = 0
Re: Savoir par quel nombre est divisible un nombre
Publié : lun. 01/déc./2014 8:46
par Micoute
Bonjour à tous, c'est mieux de mettre NombreDivisiblePar(Nombre, 2, nombre-1) pour éviter d'écrire la valeur de nombre à la fin du listing.
Code : Tout sélectionner
Procedure.s NombreDivisiblePar(Nombre.Q, DiviseurMinimum.Q, DiviseurMaximum.Q)
Protected Resultat$
If Nombre > 0
For Diviseur = DiviseurMinimum To DiviseurMaximum
If Nombre % Diviseur = 0
Resultat$ + Str(Diviseur) + ", "
EndIf
Next
If Resultat$ = ""
Resultat$ = "Rien, "
EndIf
EndIf
ProcedureReturn Left(Resultat$, Len(Resultat$) - 2)
EndProcedure
For Nombre = 0 To 1000
Debug Str(Nombre) + " est divisible par: " + NombreDivisiblePar(Nombre, 2, nombre-1)
Next
Re: Savoir par quel nombre est divisible un nombre
Publié : lun. 01/déc./2014 9:39
par djes
Pour ceux qui lisent en diagonale...
Ollivier a écrit :Lord Nelson a écrit :0 est divisable par: Rien
Il n'y a pas un chiffre qui soit divisable.
Un nombre est divisable dans le sens où ses chiffres peuvent être séparés.
Exemple: 12345 devient 12 et 345.
C'est un terme plus utilisé pour les modifications cadastrales que pour les mathématiques.
"
Divisible" évoque la division arithmétique.
Ensuite 0 est divisible par
tous les nombres non nuls.
0/100 = 0
0/1 = 0