Convertisseur de base N à N

Entrez la base d'entrée, de sortie puis la valeur à convertir.
Au défit de faire mieux et plus léger !

Prgm AllBase V3 187 octets.

Code:

:"0123456789ABCDEF->Chaîne0   ----   (Allez jusqu'à Z pour la base 36).
:EffEcr:0->N:0->R
:Input:"DE BASE ",X
:Input "A ",Y
:Input "N= ",Chaîne1
:longueur(Chaîne1->L
:For(Z,0,L-1
:carChaîne(Chaîne0,sous-Chaîne(Chaîne1,L-Z,1))-1
:R+X^ZRép->R
:End
:Repeat non(R
:N+1->N
:Output(8,17-N,sous-Chaîne(Chaîne0,1+R-Yent(R/Y),1
:ent(R/Y->R
:End

Vous pouvez le tester à cette adresse :
http://www.kaagaard.dk/service/convert.htm

Eh bien pourquoi ne pas faire quelques octets plus léger ? :

Code:

:"0123456789ABCDEFHIFKLMNOPQRSTUVWXYZ->Str0
:DelVar NDelvar RClrHome
:Input "DE BASE ",X
:Input "A ",Y
:Input "N=",Str1
:length(Str1->L
:For(Z,0,L-1
:-1+inString(Str0,sub(Str1,L-Z,1
:R+X^ZAns->R
:End
:While R
:N+1->N
:Output(8,17-N,sub(Str0,1+R-YiPart(R/Y),1
:iPart(R/Y->R
:End

Voilà !

Sinon, on voit que avec Omnicalc, c'est drastiquement plus rapide. Enfin, c'est une lib donc ça compte pas :

Code:

Input "DE BASE ",A
Input "A ",B
Input "N=",Str1
real(25,Str1,A,B

J'ai recopier ton prgm en Français :

Code:

:Input "DE BASE ",A
:Input "A ",B
:Input "N=",Chaîne1
:réel(25,Chaîne1,A,B

Je n'arrive pas à m'en servir  
J'ai ERREUR ARGUMENT après B.

C'est quoi un Omnicalc ? Et un lib s'il te plaît ?  

C'est normal que tu ne puisses pas t'en servir : tu as besoin de la lib. Une lib est une bibliothèque de programmes ("library"), de fonctions supplémentaires à la calculatrice. Les lib exploitent des romcalls qui ne le sont pas dans l'OS. Les plus populaires sont xLib, Symbolic, Omnicalc, Celtic. Ce sont souvent des app, donc non accessibles à un modèle inférieur à la 83+. Il en existe néanmoins une pour 83/82 stats/.fr, il s'agit de Wlib que tu pourras retrouver sur le site

Sujet vu et revu
Un bon résumé des prgm par linka:
http://www.tout82.org/t174-convertisseur-binaire-decimal-hexadecimal

Voilà un feature de la TI-86 qui n'aurait jamais du disparaitre !

Son convertisseur a au moins le mérite de traiter 36 bases en un poids record.

Au pire on n'est pas sur www.tout83+.org s'il vous plait...
Je cherchais encore à comprendre real(25,strl,A,B...
Sinon merci pour Wink, je ne connaissais pas ces rajouts de fonctions, j'irai voir.

Non on n'est pas sur tout83+, mais la 82+ en est une, et la 82A est une 84+. Ca ne me choque pas de mettre ce code à titre indicatif.

Real(25... Sert à appeller une fonction de la lib omnicalc.