[résolu]TI-Basic convertisseur Hexadecimal <>Decimal

Bonjour
un petit programme qui a été écrit bien des fois je suppose.
Voilà ma version. Je n'ai pas fait ni binaire ni autres bases car c'est un programme que j'utilise uniquement dans ces 2 sens.

Pour Info ça ne gère pas les erreurs de saisie ni les dépassements de capacité et n'est pas forcément optimisé.
exemple 123456789 en décimal renvoie 75BCD15 en hexa et vice-versa

Voilà le code :

Code:

:"0123456789ABCDEF→Str1
:10→A:11→B:12→C
:13→D:14→E:15→F
:16→T
:Lbl 0
:" "→Str2
:0→Z
:ClrHome
:Menu("CONV D<>H","D>H",1,"H>D",2,"Stop",3
:Lbl 1
:Input "D? ",X
:While X
: TfPart(X/T→Z
: (X-Z)/T→X
: sub(Str1,Z+1,1)+Str2→Str2
:End
:Pause Str2
:Goto 0
:Lbl 2
:Input "H? ",Str1
:For(I,1,length(Str1
: expr(sub(Str1,I,1))T^(length(Str1)-I)+Z→Z
:End
:Pause Z
:Goto 0
:Lbl 3
:Stop

Bien à vous

Bonjour,

Effectivement, c'est un programme qui revient souvent.
Quelques remarques:
Le Stop à la fin d'un programme est inutile.

L'utilisation de la fonction expr est intéressante, on a plus l'habitude de voir inString d'utilisé.

Sujet classique, chacun son tour.

Ce serait plus fiable de calculer le quotient entier puis d'en déduire le reste. Multiplier la partie décimale est toujours un risque d'arrondi.

on a plus l'habitude de voir inString d'utilisé.

La mode de expr() est passée mais beaucoup de programmes anciens de tout82 original l'utilisaient.

A quoi sers la fonction "expr()", pour information?

elle renvoie en tant que nombre un nombre contenu dans une chaine.

expr("4+7") vaut 11.

Du coup, ça sert aussi si ta chaine contient un gros calcul balèze.

Pas forcément un nombre, cela dépend du calcul. Nombre, liste, matrice, chaîne.
C'est d'ailleurs mieux que les équations de courbes qui ne donnent que des nombres réels et listes réelles.

Bonjour

Linkakro a écrit:[..]
La mode de expr() est passée mais beaucoup de programmes anciens de tout82 original l'utilisaient.

Et qu'est-ce qui est mieux tout compte fait entre inString  et expr ?

Expr() permet dans cette situation d'interpréter les lettres en lisant la valeur des variables numériques lettres.
inString permet d'utiliser n'importe quel symbole et n'a pas besoin de stocker des valeurs pour chaque lettre.
Je préfère donc inString("0123...","symbole").
Aucune des deux n'est présente dans la ti82 non-stat par contre.

Comme dans un autre topic, le sujet a déjà été posté, mais bon ce n'est pas grave, je te mets +1 pour ton travail...

https://tout82.forumactif.org/t117-convertir-base-10-2-16

Ce ne sont pas les 2 seuls topics qui en parlent, c'est l'un des sujets les plus récurrents.

Je suis bien d'accord, mais il y a déjà 3 topics qui traitent de ce sujet, mais bon c'est pas grave...

Bonsoir
Si c'est vraiment récurent, désolé (vous pouvez m'enlever le +1 ou supprimer ce sujet)
Je voulais donner une version personnelle... On ne devrait pas réinventer la roue (aussi un sujet que j'ai créé ...   )

Linkakro a écrit:[..]
Ce serait plus fiable de calculer le quotient entier puis d'en déduire le reste. Multiplier la partie décimale est toujours un risque d'arrondi.

concernant la fonction modulo que j'ai utilisée, c'est  vrai que c'est source d’imprécision,  voire d'erreur.
j'ai fait quelques essais avec 3 méthodes sur le modulo

Code:

:ClrHome
:Prompt X,T
:ClrHome
:Disp X-T(iPart(X/T
:Disp X-T(int(X/T
:Disp TfPart(X/T

voilà ce que ça donne avec quelques cas


Bien à vous

Non non pas du tout ne supprime pas le sujet ce n'est pas du tout ce que je voulais dire par là!
Si je t'ai dis que le sujet était récurent c'est pour te signaler que si tu voulais faire des comparaisons ou des recherches par rapport à ton prgm, tu devrais trouver pas mal de sources.

Je sais qu'on a l'habitude de dire qu'on ne réinvente pas la roue en programmation, mais c'est pas très correct: parfois ça permet de faire mieux que ce qui a été fait, ou encore de mieux comprendre comment fonctionnent certains trucs et donc d'être plus à mène de les utiliser. Dans tous les cas c'est une bonne idée parce que ça permet de progresser.

Le problème du partEnt dans le tableau:
partEnt donne le premier entier inférieur ou égal au nombre, tandis que ent renvoi une troncature.
Ex:
partEnt(5 = 5
ent(5 = 5
parEnt(4.5 = 4
ent(4.5 = 4
partEnt(-5.5 = -6
ent(-5.5 = 5
C'est pour ça que les valeurs sont différentes dans le tableau.

Ce n'est pas un problème de poster son propre travail même si le sujet a été abordé. Comme ça on s'entraîne.

Les fonctions int/iPart/partEnt/ent
Comment on s'en sert en division à l'intérieur de mon tutoriel d'algorithmieVStibasic.
Y a d'autres sources.

merci pour tout je marque résolu

Bon, devoir sur les conversions de bases demain!
Et la calculatrice risque d'être interdite, mais je croise les doigts pour que ce ne soit pas le cas