Page 2 sur 2
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 17:11
par SPH
lepiaf31 a écrit :Pour éviter de devoir mettre un 1 au début, je vais prendre 9 chiffres (au lieu de 10). Mais sinon mon algorithme va-t-il marcher correctement selon vous ?
Code le, et on te dira...
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 17:26
par lepiaf31
voilà, ca à l'air de plutôt bien marcher:
Code : Tout sélectionner
Procedure decompose(nombre, nbChiffre)
nombreFinal = 0
i = 1
While nombre > 9
diff = (nbChiffre*9)-nombre
If diff >= 10
min = 0
Else
min = 9-diff
EndIf
nb = Random(9-min)+min
nombre - nb
nbChiffre - 1
nombreFinal + i*nb
i = i*10
Wend
nombreFinal + i*nombre
ProcedureReturn nombreFinal
EndProcedure
Debug decompose(50, 9)
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 17:48
par SPH
nan, tu as un bug
ca, c'est parfait :
Code : Tout sélectionner
For i=1 To 100
;;; l'algo
Repeat
nb=50
c=1
nb$=Str(nb)+" = "
While nb>9
nb1= Random(8)+1
c+1
nb-nb1
nb$+Str(nb1)+"+"
Wend
nb$+Str(nb)
Until c<10
Debug nb$
;;; fin de l'algo
Next
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 17:53
par lepiaf31
Un bug ? Je pourrais savoir où ?
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 17:56
par SPH
lepiaf31 a écrit :Un bug ? Je pourrais savoir où ?
ton LONG peux etre negatif !
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 17:57
par lepiaf31
Je pense avoir corrigé le bug =)
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 18:04
par SPH
lepiaf31 a écrit :Je pense avoir corrigé le bug =)
oui, ca marche (oublie pas que tu a des zero aussi)
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 18:06
par lepiaf31
Bah c'est pas grave, je laisse les zero ca pose pas de problème
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 19:47
par Ar-S
Si t'es pas en train de nous faire de la numérologie lepiaf31
Re: Generer un nombre à partir de la somme de ces chiffres
Publié : mar. 27/avr./2010 20:16
par lepiaf31
C'est presque ca ^^
N'empeche que je suis content de ma fonction =)