[83] Décimal en Hexa

Bonjour,

histoire de dérouiller ma calculatrice voila un programme qui convertit du Décimal en Hexadecimal.
bien sûr ce programme doit exister des centaines de fois, mais bon, fallait bien recommencer par du quelque-chose de simple.
Aucune gestion des erreurs n'est incluse donc ça peut donner n'importe quoi en fonction de ce que l'on saisi


exemple convertir 56789 devient DDD5

Il y a peut-être plus simple, je suis preneur.

Code:

:ClrHome
:Prompt D
:"0123456789ABCDEF"→Str1
:" "→Str0
:16→G
:0→I
:While D≠0
:I+1→I
:D-iPart(D/G)G→Z
:iPart(D/G)→D
:sub(Str1,Z+1,1)+Str0→Str0
:End
:Disp Str0
:


exemple convertir 56789 devient DDD5

Il y a peut-être plus simple, je suis preneur.

Spoiler:

Tu utilises déjà l'algorithme le plus rapide parmi les deux remarquables.
La façon de le coder peut alléger quand même.
En particulier le test D=/=0 qui peut s'écrire simplement D.
Enlever les parenthèses et guillemets fermants en fin de ligne et avant chaque sto.
Dans l'état actuel I n'est pas utilisé donc je conseille de l'enlever.

Je constate que ton programme supporte la valeur nulle et répond par un espace. Seuls les nombres décimaux doivent poser problème.

merci d'avoir pris le temps de regarder.

Oui la variable "i" est un oubli (sans doute d'une autre méthode que j'avais essayée)

je n'avais pas vu que si on rentrait 0 ça ne sortait rien... (quelle idée de taper 0 ... ) mais ça fait parti des tests qu'il faudrait faire

je remarque aussi que les décimaux et négatifs plantent mon programme
et les grand nombres qui passent en puissance de 10 ça doit être faux aussi.

j'ai tendance à laisser les parenthèses et les guillemets de fin car ça fait plus lisible et puis peut-être qu'un jour les nouveaux OS seront moins permissifs sur la syntaxe Mais c'est vrai au prix de l'octet et la taille de la RAM il vaut mieux économiser...

concernant l'autre algo remarquable, tu peux en dire un peu plus ?

Je n'e vois pas l'endroit de mon code : D=/=0 tu peux éclaircir ce point ?

merci en tous cas !

J'avais fait un traducteur en une petite dizaine de ligne en basic je le chercherais ce soir mais c'est effectivmenet un bon programme et qui est utile, il ne te reste plus qu'a faire la traduction hexa->decimal

linkakro a écrit:[
En particulier le test D=/=0 qui peut s'écrire simplement D.

ah oui While D≠0 peut s'écrire While D. pas évident de savoir ce que ça teste au premier coup d'oeil

Les nombres décimaux et négatifs doivent planter le sub(). Les négatifs ne planteraient pas avec la fonction int à la place de iPart mais le résultat serait quand même faux. (voire boucle infinie, sur ce coup la j'ai du mal à prévoir)
Tandis que les nombres suppérieurs à 10^14 perdrent leurs derniers chiffres (s'il y en a des non nuls) après le 14ème.
En effet la calculatrice enmagasine 14 chiffres de mantisse (la mantisse est le nombre entre 0 et 1 associé à une puissance de 10 en notation scientifique).
Les entiers de 0 à 10^14 ne posent pas de problème.

L'autre algorithme que j'ai mentionné consiste à déterminer la plus grande puissance de 2 inférieure au nombre saisi puis à diviser le nombre par les puissances de 2 dans l'ordre décroissant en conservant les quotient et transmettant à la prochaine opération le reste.
Cette méthode est parfois performante de tête pour un humain, mais pas du tout pour un ordinateur.

Parfois je laisse les syntaxes de fin de ligne, par exemple quand une chaine de caractères se termine par des espaces. Si tu veux laisser des syntaxes, laisse les, c'est plus facile au radin de les enlever qu'au développeur de les ajoûter.

J'aime bien utiliser un Repeat pour que le programme supporte le 0 sans test ni initialisation de la chaine à "0".