[Résolu] Base 9 sans nombre 0

[Micoute]

Bonjour à tous,

pouvez-vous m'aider à optimiser cette procédure, car on voit bien qu'il y a une logique, mais je n'arrive pas bien à la discerner.

le principe de la procédure c'est de décoder des nombre en fausse base 9 qui n'utilise pas de zéro, en vraie base décimale.

Code : Tout sélectionner

Procedure B9ToB10(Nombre.q)
   Retenue = 0
   i = 1
   While i < (Nombre / 10) * 9
      
   If Mod(i, 9) = 0 ; Nombre divisible par 9
      Retenue + 1
      NombreSortie + 1
   Else
      If Retenue <= 9
         NombreSortie = i + Retenue
      ElseIf Retenue >= 9 And Retenue < 19
         NombreSortie = i  + Retenue + 10
      ElseIf Retenue >= 19 And Retenue < 28
         NombreSortie = i  + Retenue  + 20
      ElseIf Retenue >= 28 And Retenue < 37
         NombreSortie = i + Retenue + 30
      ElseIf Retenue >= 37 And Retenue < 46
         NombreSortie = i + Retenue + 40
      ElseIf Retenue >= 46 And Retenue < 55
         NombreSortie = i + Retenue + 50
      ElseIf Retenue >= 55 And Retenue < 64
         NombreSortie = i + Retenue + 60
      ElseIf Retenue >= 64 And Retenue < 73
         NombreSortie = i + Retenue + 70
      ElseIf Retenue >= 73 And Retenue < 82
         NombreSortie = i + Retenue + 80
      ElseIf Retenue >= 82 And Retenue < 91
         NombreSortie = i + Retenue + 90
      ElseIf Retenue >= 91 And Retenue < 100
         NombreSortie = i + Retenue + 200
      ElseIf Retenue >= 100 And Retenue < 109
         NombreSortie = i + Retenue + 210
      ElseIf  Retenue >= 109 And Retenue < 118
         NombreSortie = i + Retenue + 220
      ElseIf Retenue >= 118
         NombreSortie = i + Retenue + 230
      EndIf   
   EndIf
      Debug "(" + Str(NombreSortie) + ") = " + Str(i) + " Retenue = " + Retenue
      i + 1
   Wend     
   ProcedureReturn i - 1
EndProcedure

Debug B9ToB10(1199)

Je vous ai déjà parler de ce projet et ça me ferait extrêmement plaisir de vous associer tous à ce défi qui n'est pas coton et je ne souhaite pas qu'elle calcule seulement jusqu'à 1199 !

Je vous en remercie tous par avance.

[SPH]

ENJOY :

Code : Tout sélectionner

For i=1 To 100
  Debug ("("+Str(i)+") = "+Str(i-i/10)+" Retenue = "+Str((i+1)/10))
Next

[Backup]

on n'a pas deja fait un topic la dessus ?

[SPH]

on n'a pas deja fait un topic la dessus ?

Non, l'autre etait bien plus facile, je m'en rappelle

[Micoute]

ENJOY :

Code : Tout sélectionner

For i=1 To 100
  Debug ("("+Str(i)+") = "+Str(i-i/10)+" Retenue = "+Str((i+1)/10))
Next

Hélas non, ce n'est pas ça, car il ne faut pas de zéro !

Merci beaucoup quand même.

[Micoute]

on n'a pas déjà fait un topic la dessus ?

Et oui, c'est vrai, mais j'essaye une autre méthode et j'avoue que c'est un challenge très difficile, car là, il faut entrer un nombre qui à été codé en fausse base 9, disons une base 9 sans 0 et retrouver la valeur qui à été codée pour la ressortir en décimal.

Merci à vous tous !

[SPH]

Condamné a echouer...

Tu devrais t'orienter vers un cryptage en Xor, comme te l'avais suggeré Dobro

[Micoute]

C'est vrai que ce serait vraiment plus simple, mais c'est pas ça qu'il faut !

[SPH]

En tout cas, je continuerais a t'aider car je veux voir le resultat final

[SPH]

ENJOY :

Code : Tout sélectionner

For i=1 To 100
  Debug ("("+Str(i)+") = "+Str(i-i/10)+" Retenue = "+Str((i+1)/10))
Next

Hélas non, ce n'est pas ça, car il ne faut pas de zéro !

Merci beaucoup quand même.

Ha oui tiens, j'ai faux !
Alors la, je ne saurais te dire...

[Micoute]

ENJOY :

Code : Tout sélectionner

For i=1 To 100
  Debug ("("+Str(i)+") = "+Str(i-i/10)+" Retenue = "+Str((i+1)/10))
Next

Hélas non, ce n'est pas ça, car il ne faut pas de zéro !

Merci beaucoup quand même.

Ha oui tiens, j'ai faux !
Alors la, je ne saurais te dire...

Pourquoi crois-tu que je m'échine à faire des tas de IF ?
C'est un algorithme que je cherche pour qu'il me fasse les test automatiquement !

[SPH]

Il y a une chose qui me tracasse : est ce que tu vas transformer un fichier octet par octet ? Si oui, tu n'as que 256 possibilités. Alors, tu peux faire un tableau de 256 transformations.

[GallyHC]

Je n'ai pas vraiment tout compris mais j'essais

Code : Tout sélectionner

Define i.i

For i=0 To 100
  If CountString(Str(i), "0") = 0
    Debug i  
  EndIf
Next i

Cordialement,
GallyHC

[SPH]

Je n'ai pas vraiment tout compris mais j'essais

Code : Tout sélectionner

Define i.i

For i=0 To 100
  If CountString(Str(i), "0") = 0
    Debug i  
  EndIf
Next i

Cordialement,
GallyHC

Tres interessant. Court et précis !

[GallyHC]

Toujours sans vraiment comprendre (le code avec le tout) :

Code : Tout sélectionner

Define.i i, j

For i=0 To 100
  If CountString(Str(i), "0") = 0
    j + 1    
    Debug ("(" + Str(j) + ") = " + Str(i) + " Retenue = " + Str((i + 1) / 10))
  EndIf
Next i

@SPH : J'aime bien les codes courts, mais fonctionnel

Cordialement,
GallyHC