Poster un nouveau sujet Poster une réponse <<   Page: , , 3,      >>
Conversion décimal, binaire et hexadécimal
Auteur Message
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 30 Sep 2012, 15:03   Citer 

H est le nombre hexadécimal ou le nombre binaire à saisir.
Lorsque la TI affiche "H=?" tu dois saisir le nombre et valider.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 30 Sep 2012, 22:10   Citer 

EDIT : NOUVELLE VERSION

De la base X à X, pour X de 2 à 36.
Au défit de faire mieux et plus léger !

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

Prgm AllBase V3
187 octets.

Code
:"0123456789ABCDEF->Chaîne0   ----   (Allez jusqu'à F pour la base 16 et Z pour 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



Prgm AllBase V2

Code
:"FEDCBA->Chaîne0
:0->R:10->A:11->B:12->C:13->D:14->E:15->F
:EffEcr
:Menu("BASE",10 A X",1,"X A 10",2

:Lbl 1
:Disp "10 A X"
:Prompt X,N
:While N=/=0
:R+1->R
:N-Xent(N/X
:If Rép<10:Then:Output(8,17-R,Rép):Else:Output(8,17-R,sous-Chaîne(Chaîne0,16-Rép,1:End
:partEnt(N/X->N
:End:Stop

:Lbl 2
:Disp "X A 10"
:Prompt X
:Input "N=?",Chaîne0
:longueur(Chaîne0->L
:For(E,0,L-1
:expr(sous-Chaîne(Chaîne0,L-E,1
:If Rép supérieur ou égal à X:Disp "ERREUR !
:R+X^Eent(Rép->R
:End
:Output(8,1,R



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Soni8D



Autorisation : Membre
Nb de messages : 2
Inscrit le : Dim 30 Sep 2012, 13:47
Posté le : Lun 01 Oct 2012, 21:05   Citer 

Bonsoir, et merci Linkakro happy.gif !

Id _ Ton programme est sur TI82? Car il me manque quelques "fonctions" comme Effecr, ou Ent... eyeonly.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 01 Oct 2012, 22:22   Citer 

Le programme du sujet ici présent a été écrit par vin, pas par moi.

Si tu veux parler de mon programme posté ailleurs (relisez le topic car il contient plusieurs choses) : non, la dernière version optimale n'est pas disponible sur ti82 à cause des chaines de caractères.
Contourner ce problème est possible mais très pénible, ou bien on utilise pas de lettres.
Il existe déjà une version de mon programme adaptée à toutes les TI, mais utilise des listes ce qui complique la saisie ; je ne sais plus si je l'ai postée ni où.
Si on est prêt à gérer soi-même des choses, utilisez les deux petits programmes à la fin.

Consulte le catalogue des fonctions signalé par ma signature : il indique les emplacements des fonctions et leurs traductions.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
mikouuu
Invité
Posté le : Mar 19 Fév 2013, 19:43   Citer 

bonjour voila j'aimerai savoir ou se trouve chaine sans la parenthese car je suis debutant et je mi conais pas trop et se programe me serai d'une grande utiliter svp

  Haut de page Bas de page 
 
blg_flg



Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Mar 19 Fév 2013, 21:34   Citer 

Regarde ici: http://tiemulation.kegtux.org/TIBasic.htm

Il y a toutes les fonctions et tous les emplacements, traductions, etc. winkle.gif

 Adresse email Haut de page Bas de page 
 
mika
Invité
Posté le : Mer 20 Fév 2013, 16:02   Citer 

:Normal
:Float
:ClrHome
:ClrList L1,L2
:Input "DEPART=",X
:Input "FINAL=",Y
:10&#8594;A
:11&#8594;B
:12&#8594;C
:13&#8594;D
:14&#8594;E
:15&#8594;F
:3&#8594;T
:0&#8594;S
:0&#8594;N
:iPart(log(X-1))+1&#8594;U
:If X=16
: 1&#8594;U
:" "&#8594;Str2
:"ABC--DEF--------789--456--123--0---"&#8594;Str1
:Lbl 88
:0&#8594;K
:Repeat K&#8800;0
: getKey&#8594;K
:End
:If K=105 and N/U=iPart(N/U) and N&#8800;0
: Goto 99
:If K=23 and N&#8800;0
:Then
: Output(T,S," "
: S-1&#8594;S
: If S=0
: Then
: 16&#8594;S
: T-1&#8594;T
: End
: N-1&#8594;N
: sub(Str2,1,N+1)&#8594;Str2
: If N/U=iPart(N/U)
: N/U&#8594;dim(L1)
:End
:If K<41 or K=105 and (N/U&#8800;iPart(N/U) or N=0)
: Goto 88
:If K=23
: Goto 88
:K-40-5iPart((K-40)/10)&#8594;M
:If sub(Str1,M,1)="-"
: Goto 88
:If expr(sub(Str1,M,1))&#8805;X or expr(sub(Str1,M,1))&#8805;10 and H=0
: Goto 88
:N+1&#8594;N
:S+1&#8594;S
:If S=17
:Then
: T+1&#8594;T
: 1&#8594;S
:End
:Output(T,S,sub(Str1,M,1))
:Str2+sub(Str1,M,1)&#8594;Str2
:If N/U=iPart(N/U)
: expr(sub(Str2,N-U+2,U)&#8594;L1(N/U)
:Goto 88
:Lbl 99
:"0123456789ABCDEF"&#8594;Str1
:Lbl R
:0&#8594;H
:If Y=16
: 1&#8594;H
:0&#8594;P
:N/U&#8594;N
:For(W,1,N
: L1(W)*X^(N-W)+P&#8594;P
:End
:0&#8594;W
tongue.gif&#8594;Z
:ClrList L2
:Repeat Q=0
: W+1&#8594;W
: iPart(P/Y)&#8594;Q
: P-Q*Y&#8594;L2(W)
: Q&#8594;P
:End
:ClrList L1
:For(V,0,W-1
: L2(W-V)&#8594;L1(V+1)
:End
:ClrList L2
:ClrHome
:If P>9999999999
: Disp "TROP GRAND"
:If P<&#7473;10
: Disp "BASE"
:Output(1,7,Y
:If Y=10 and dim(L1)<11
: Pause Z
:If Y>10 and H=0
: Pause L1
:If H=1 or Y=10 and dim(L1)>10 or Y<10
:Then
: " "&#8594;Str2
: dim(L1)&#8594;M
: For(W,1,M
: Str2+sub(Str1,L1(W)+1,1)&#8594;Str2
: End
: Pause Str2
:End
:Menu("RESTART","STOP",Q,"RECONVERTIR",S
:Lbl S
:Y&#8594;X
:Input "RECONV=",Y
:ClrHome
:Udim(L1)&#8594;N
:If Y=16
: 1&#8594;H
:Goto R
:Lbl Q


j'ai un probleme de domaine au niveau de sub (str2,1,n+1) ??

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 20 Fév 2013, 18:40   Citer 

Ce programme n'est visiblement pas du site. Aussi j'aimerai qu'a l'avenir tu créer un nouveau sujet au lieu de répondre dans un autre sujet.
Pourrais-tu nous indiquer la dimension de la chaîne 2 (= son nombre de caractère) ainsi que la valeur de N lors de l'erreur?

Sangohan38

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 24 Fév 2013, 13:43   Citer 

C'est une des antiques versions de mon programme que j'ai mentionné en lien. Il aurait fallu remonter le sujet où je l'ai posté plutôt que celui-ci.
Sérieusement utilise une version plus moderne, car elle ne donne aucun avantage de compatibilité et son algorithme de saisie est compliqué.

Le sujet ici présent, et pas la remontée de mika, est compatible toute ti.
Celui de l.davin aussi est compatible.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
thomas
Invité
Posté le : Sam 02 Mar 2013, 12:08   Citer 


Citer : ld
Bonjour tout le monde ! bigmouth.gif
Voilà j'avais envi d'enterrer ce topic en vous présentant mon dernier convertisseur. L'affichage est PARFAIT. Bien plus simple, léger, rapide et fonctionnel !
Il sais aussi utiliser et afficher les nombres en hexadécimal pour les programmeurs comme vous !
Et le tout en 270 octets s'il vous plait !

Le menu vous propose de passer de la base 10 à la base X et inversement.
Quelques exemples pour illustrer tout çà:

Convertir 6435 (Base 10) en binaire (Base 2).
-> Menu -> "10 à X" -> X=? 2 -> N=? 6435 -> Entrer. On a 1100100100011

Convertir 7243 (Base 10) en hexadécimal (Base 16).
-> Menu -> "10 à X" -> X=? 16 -> N=? 7243 -> Entrer. On a 1C4B

Convertir 1101 (Base 2) en décimal (Base 10).
-> Menu -> "X à 10" -> X=? 2 -> N=? 1101 -> Entrer. On a 13

Convertir E7B6 (Base 16) en décimal (Base 10).
-> Menu -> "X à 10" -> X=? 16 -> N=? E7B6 -> Entrer. On a 14262


Code
:"FEDCBA->Chaîne0
:0->R:10->A:11->B:12->C:13->D:14->E:15->F
:EffEcr
:Menu("BASE",10 A X",1,"X A 10",2

:Lbl 1
:Disp "10 A X"
:Prompt X,N
:While N=/=0
:R+1->R

Code
:N-Xent(N/X

:If Rép<10:Then:Output(8,17-R,Rép):Else:Output(8,17-R,sous-Chaîne(Chaîne0,16-Rép,1:End
:partEnt(N/X->N
:End:Stop

:Lbl 2
:Disp "X A 10"
:Prompt X
:Input "N=?",Chaîne0
:longueur(Chaîne0->L
:For(E,0,L-1
:expr(sous-Chaîne(Chaîne0,L-E,1
:If Rép supérieur ou égal à X:Disp "ERREUR !
:R+X^Eent(Rép->R
:End
:Output(8,1,R



Ce msg remonte d'ici:
http://tout82.free.fr/forum/sujet.php?sujet=3354
Dans le topic de Samsam. D’ailleurs le siens est bien aussi.



je suis sur ti 82 stat.fr et je vois pas comment entrer cette ligne :
:N-Xent(N/X
ni cella là :
:longueur(Chaîne0->L

Pardonnez mon imcompétence godgrace.gif

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 02 Mar 2013, 13:35   Citer 

Utilise le catalogue de la TI pour trouver toutes les fonctions : 2nde+0.
Pour des traductions et des emplacements consulte le catalogue présent dans ma signature.
ent() est dans le menu math et longueur() est uniquement dans le catalogue.

EDIT: et les variables sont soit dans le menu var ou liste soit sur le clavier et le catalogue de ma signature les indique aussi.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
thomas
Invité
Posté le : Dim 03 Mar 2013, 12:53   Citer 

et oui c'est encore moi
j'ai encore un problème
pour la conversion en base 16 j'ai "erreur argument" et il me dit que l'erreur est à ce niveau là
:Output(8,17-R,sous-chaine(chaine(0,16-Rép,1
serai se parce que je ne trouve pas la fonction chaine( sans la paranthèse?

et un autre soucis également pour la conversion de base x à 10
j'entre x=2 pour le binaire et là j'ai erreur syntaxe, je regarde et l'erreur est à
:Input "N=?",chaine(1)
je pense vraiment que c'est un problème de { chaine et pas chaine( }
merci d'apporter une réponse (claire si possible) à ce petit ennui

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 03 Mar 2013, 13:44   Citer 

Tu confonds
-la fonction chaîne qui concatène listes et matrices
-les variables Chaîne#.
Toutes les variables sont soit sur le clavier soit dans les menus var ou liste.
Les Chaîne# sont dans le menu var+7.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
thomas
Invité
Posté le : Dim 03 Mar 2013, 19:47   Citer 

je te remercie encore

  Haut de page Bas de page 
 
Chuchi
Invité
Posté le : Dim 29 Sep 2013, 18:42   Citer 

Hey !
J'ai un problème quand je lance le programme il me met erreur argument et me revoit à la ligne Menu("BASE", 10 A X",1, "X A 10",2 il me met le curseur sur le deux, quel est le problème svp? Merci !

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 29 Sep 2013, 18:49   Citer 

Ajoutes le guillemet manquant après la première virgule du menu.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Chuchi
Invité
Posté le : Dim 29 Sep 2013, 19:53   Citer 

Merci! Mais maintenant j'ai d'autre erreur ^^
Quand je fais de 10 à X ça me met erreur syntaxe et ça me met sur le / dans While N=/=0
puis pour de X à 10 ça me met erreur domaine et çca me renvoi à la dernière ligne Output(B,1,R et ça me met le curseur après le R
Merci !

  Haut de page Bas de page 
 
m@thieu41



Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Dim 29 Sep 2013, 20:09   Citer 

Bonjour,
Le "=/=" sert à représenter le symbole différent de ([2nde],[math],[2]), et n'est pas à saisir en 3 parties...
Output(8,1,R //Ou as tu pris B?

----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)

Et au fait: la politesse n'a jamais tué personne winkle.gif
 Adresse email Haut de page Bas de page 
 
Chuchi
Invité
Posté le : Dim 29 Sep 2013, 20:49   Citer 

Merci beaucoup tout marche ! Ce programme va me facilité la vie en SI !

  Haut de page Bas de page 
 
Paga
Invité
Posté le : Sam 12 Oct 2013, 17:59   Citer 

comment ecrit on la ligne :if Rép superieur ou égal à X:Disp "ERREUR ! du programme de ld, désolé mais je n'ai trouvé la solution nul part et n'étant pas un dieux en programmation je ne trouve pas dans la calculatrice

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , , 3,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink