Generer un nombre à partir de la somme de ces chiffres

[SPH]

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...

[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)
 

[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

[lepiaf31]

Un bug ? Je pourrais savoir où ?

[SPH]

Un bug ? Je pourrais savoir où ?

ton LONG peux etre negatif !

[lepiaf31]

Je pense avoir corrigé le bug =)

[SPH]

Je pense avoir corrigé le bug =)

oui, ca marche (oublie pas que tu a des zero aussi)

[lepiaf31]

Bah c'est pas grave, je laisse les zero ca pose pas de problème

[Ar-S]

Si t'es pas en train de nous faire de la numérologie lepiaf31

[lepiaf31]

C'est presque ca ^^
N'empeche que je suis content de ma fonction =)