Page 1 sur 1
[Résolu] Codage et décodage
Publié : mer. 05/juin/2013 13:22
par Micoute
Bonjour à tous,
toujours sur le même principe, je souhaiterais faire une procédure faisant l'inverse de celle-ci, c'est-à-dire de remettre en décimal le code sortant de cette même procédure que voici :
Code : Tout sélectionner
Procedure Coder(Nombre.q)
; À toutes les dizaines on est décalé d'une unité, ça donne une Retenue
Retenue = (Nombre - 1) / 9
; On ajoute la Retenue au résultat
Resultat = Nombre + Retenue
; Pour l'instant on n'a modifié que les unités ajoutés toutes les dizaines, il faut aussi ajouter
; tous les blocs de 0 qui apparaissent 10 fois toutes les centaines, 100 fois tous les milliers, etc.
; Sans oublier qu'à chaque fois qu'on ajoute une Retenue celle-ci décale le résultat, il faut donc
; calculer aussi la Retenue de la Retenue !
; 1 = unités, 10 = dizaines, 100 = centaines...
Rang = 1
; On s'arrête quand il n'y a plus de Retenue à ajouter
While Retenue > 0
; Nouvelle Retenue à ajouter
Retenue = (10 * Rang) * ((Retenue - 1) / (9 * Rang))
; Ajout de la Retenue
Resultat + Retenue
; Passage au Rang suivant
Rang * 10
Wend
ProcedureReturn Resultat
EndProcedure
Je vous remercie tous par avance de votre participation
Re: Codage et décodage
Publié : mer. 05/juin/2013 17:09
par SPH
Tjr difficile de decoder une procedure comme la tienne. Si tu pouvais donner plusieurs exemples, on pourrais t'aider...
Re: Codage et décodage
Publié : mer. 05/juin/2013 17:23
par G-Rom
Le plus simple , tu sauvegardes la relation dans une map :
Code : Tout sélectionner
Global NewMap Codage.d()
Procedure Coder(Nombre.d)
; À toutes les dizaines on est décalé d'une unité, ça donne une Retenue
Retenue = (Nombre - 1) / 9
; On ajoute la Retenue au résultat
Resultat = Nombre + Retenue
; Pour l'instant on n'a modifié que les unités ajoutés toutes les dizaines, il faut aussi ajouter
; tous les blocs de 0 qui apparaissent 10 fois toutes les centaines, 100 fois tous les milliers, etc.
; Sans oublier qu'à chaque fois qu'on ajoute une Retenue celle-ci décale le résultat, il faut donc
; calculer aussi la Retenue de la Retenue !
; 1 = unités, 10 = dizaines, 100 = centaines...
Rang = 1
; On s'arrête quand il n'y a plus de Retenue à ajouter
While Retenue > 0
; Nouvelle Retenue à ajouter
Retenue = (10 * Rang) * ((Retenue - 1) / (9 * Rang))
; Ajout de la Retenue
Resultat + Retenue
; Passage au Rang suivant
Rang * 10
Wend
Codage(Str(Resultat)) = nombre
ProcedureReturn Resultat
EndProcedure
Procedure.d Decoder(nombre)
If FindMapElement(Codage(),Str(nombre))
ProcedureReturn Codage(StrD(nombre))
EndIf
EndProcedure
Debug StrD(Decoder( Coder(55.2) ) ,1)
Re: Codage et décodage
Publié : ven. 14/juin/2013 20:36
par SPH
Micoute : tiens nous au courant de tes travaux, ca m'interesse
Re: Codage et décodage
Publié : sam. 15/juin/2013 9:27
par Micoute
Rebonjour à tous,
je vous avais tous laissé un peu tomber, car j'ai été passer quelque jours à Carnac où je n'ai eu que du mauvais temps et mal au dos tous les jours, je crois avoir compris pourquoi il pousse des pierres par chez eux : c'est parce qu'ils sont arrosés copieusement à longueur de temps.
Revenons à PureBasic ma raison de vivre, je remercie G-Rom pour son idée et j'ai conçu ceci:
Code : Tout sélectionner
Global NewMap Codage.q()
Procedure Coder(Nombre.q)
; À toutes les dizaines on est décalé d'une unité, ça donne une Retenue
Retenue = (Nombre - 1) / 9
; On ajoute la Retenue au résultat
Resultat = Nombre + Retenue
; Pour l'instant on n'a modifié que les unités ajoutées toutes les dizaines, il faut aussi ajouter
; tous les blocs de 0 qui apparaissent 10 fois toutes les centaines, 100 fois tous les milliers, etc.
; Sans oublier qu'à chaque fois qu'on ajoute une Retenue celle-ci décale le résultat, il faut donc
; calculer aussi la Retenue de la Retenue !
; 1 = unités, 10 = dizaines, 100 = centaines...
Rang = 1
; On s'arrête quand il n'y a plus de Retenue à ajouter
While Retenue > 0
; Nouvelle Retenue à ajouter
Retenue = (10 * Rang) * ((Retenue - 1) / (9 * Rang))
; Ajout de la Retenue
Resultat + Retenue
; Passage au Rang suivant
Rang * 10
Wend
Codage(Str(Resultat)) = nombre
ProcedureReturn Resultat
EndProcedure
Procedure.q Decoder(nombre)
If FindMapElement(Codage(),Str(nombre))
ProcedureReturn Codage(Str(nombre))
EndIf
EndProcedure
;Test
;For i = 0 To 40
; Debug Str(Coder(i)) + " = " + Str(Decoder( Coder(i) ))
;Next
;CallDebugger
Debug Str(Coder(50200)) + " = " + Str(Decoder(75767))