Poster un nouveau sujet Poster une réponse Page: 1,      >>
convertisseur decimal>binaire
Auteur Message
Samos



Autorisation : Membre
Nb de messages : 300
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Jeu 05 Juil 2012, 15:26   Citer 

Voila un convertisseur decimal>binaire!
L'utilité? bonne question bigmouth.gif


Code

Input "DECIMAL=",A
Delvar M
Clrlist L1,L2
Repeat not(iPart(A
M+1->M
iPart(A/2->C
A-2C->B
C->A
B->L1(M
End
                //Bon on a le nombre mais il est à l'envers!
dim(L1->dim(L2
For(X,1,dim(L1
L1(X)->L2(dim(L1)+1-X)
End
Pause L2



 Adresse email Haut de page Bas de page 
 
blg_flg



Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Jeu 05 Juil 2012, 16:04   Citer 

Tu vas faire un convertisseur binaire>décimal après? winkle.gif

 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 300
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Ven 06 Juil 2012, 11:23   Citer 

Un logarithme ? extraterre.gif notre professeur de math utilisait ce mot pour nous faire peur cette année godgrace.gif
d'après wikipedia

Citer
Le logarithme de base b d'un nombre réel positif est la puissance à laquelle il faut élever la base b pour obtenir ce nombre. Par exemple, le logarithme de mille en base dix est 3, car 1000 = 103. Le logarithme de x en base b est noté logb(crazy.gif. Ainsi log10(1000) = 3.


Pour les puissances de 10 ça va mais pour les autres nombres extraterre.gif

ta version est surement meilleure mais je vais quand même poster mon convertisseur binaire>decimal (d'ailleurs le fait de pouvoir choisir sa base m'a impressioné ahh.gif )


Code

:ClrList L5,L6
:Input "BIN LIST",L5
:dim(L5)->B:B->dim(L6   // essayé dim(L5)->dim(L6 mais ça a planté
:For(A,1,dim(L5
:L5(A->L6(B-A+1
:End
:ClrList L5
:1->B
:For(A,1,dim(L6
:B->L5(A
:2B->B
:End
:sum(L5L6->B
:Disp B



 Adresse email Haut de page Bas de page 
 
EGUL



Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 02 Juil 2012, 11:40
Posté le : Ven 06 Juil 2012, 21:01   Citer 

Oh le petit niveau . . .
Moi j'en ai un qui convertit n'importe quelle base en n'importe quelle autre

----------------------
En attente des résultats du bac!
Programmeur TI-82 fou
Prêt à aider ceux qui en ont besoin
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 300
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Ven 06 Juil 2012, 21:13   Citer 

Pourquoi ne pas le partager toi qui est de si haut niveau! godgrace.gif

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
EGUL



Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 02 Juil 2012, 11:40
Posté le : Sam 07 Juil 2012, 11:10   Citer 

Le voici

Code

EffEcr
0->B
While B<2
Input "BASE NOMBRE?",B
End
0->C
While C<1
Input "NOMBRE DE CHIFFRES?",C
End
0->T
For(D,1,C
EffEcr
Output(3,1,"NUMERO DU CHIFFRE DE GAUCHE A DROITE :
Output(5,8,D
Input "?",A
A*B^(C-D)+T->T
End
Input "BASE CONVERSION?",F
0->E
-1->G
While E<=T
1+G->G
0->H
While E<=T et H<F-1
H+1->H
H*F^G->E
End
End
H-1->H
If H=0
Then
F-1->H
G-1->G
End
H*F^G->E
G+1->I
1->dim(¤BASES            ¤ <=> au petit L         
EffListe ¤BASES
I->dim(¤BASES
H->¤BASES(1
T-E->T
For(J,1,G
-1->K
0->E
While E<=T
K+1->K
K*F^(G-J)->E
End
K-1->K
K->¤BASES(J+1
T-K*F^(G-J)>T
End
Disp ¤BASES



----------------------
En attente des résultats du bac!
Programmeur TI-82 fou
Prêt à aider ceux qui en ont besoin
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 300
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Dim 08 Juil 2012, 14:51   Citer 

J'ai essayé ton programme mais il ne fonctionne pas, j'ai du mal recopier quelque part...
Je rentre 10 en base nombre
2 en nombre chiffre
1 en premier chiffre puis 5 en 2eme chiffre
2 en base conversion et la j'obtient
{2,-2,-2,3,1}
D'ailleurs je ne comprend pas le principe crazy.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 : Mar 10 Juil 2012, 1:23   Citer 


Citer : EGUL
Oh le petit niveau . . .
Moi j'en ai un qui convertit n'importe quelle base en n'importe quelle autre

Moi aussi j'ai fait mieux mais attention à la manière de le dire car cela peut être blessant pour les débutants. (même si malheureusement je sais pas avec certitude la meilleure manière de l'aborder)
Si j'avais été le débutant de ce sujet j'aurais été blessé j'immagine.

Tant que nous sommes là, je poste mon programme le plus récent (au moment où je poste ceci) de conversion de bases. http://tout82.free.fr/forum/sujet.php?sujet=1745
Code
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÁ"üStr1
Input "BASE=",X
Input "VERS=",Y
Input "X=",Str2   // saisir nombre en chiffres et lettres, comme hexadécimal
length(Str2üN
0üP
For(W,0,N-1     // Conversion de base quelconque à 10
inString(Str1,sub(Str2,N-W,1))-1
P+Ans*X^WüP
End
If not(P
Stop
Lbl R
PüZ    // Si vous supprimmez le menu restart (et ce qui suit), vous pouvez ...
" "üStr2                     //... supprimmer cette ligne et remplacer Z par P
Repeat Q=0   // Conversion de base 10 à quelconque
iPart(Z/YüQ
Z-YQüR
QüZ
sub(Str1,R+1,1)+Str2üStr2
End
Pause Str2
Menu("RESTART","STOP",Q,"RECONVERTIR",S
Lbl S
YüX
Input "RECONV=",Y
Goto R
Lbl Q

Si on veut traiter correctement les bases au delà de 36, et plus généralement d'une manière similaire à EGUL, il est préférable d'utiliser ce programme (également de moi) :
Code
Input "BASE=",X
Input "VERS=",Y
Input L1    // saisir une liste, par exemple {8,12,3 pour dire 8C3 en base 16
0üP
dim(L1üN
For(W,1,N      // conversion de la liste en base quelconque vers nombre décimal
P+L1(W)X^(N-WüP
End
If not(P
Stop
Lbl R
PüZ          // même remarque que pour l'autre prog
DelVar W
ClrList L1
Repeat Q=0   // conversion du nombre vers liste dans une base quelconque
W+1üW
iPart(Z/YüQ
Z-YQüL1(W
QüZ
End
L1üL2
For(V,1,W    // retourner la liste pour avoir les chiffres dans le bon ordre
L2(W+1-VüL1(V
End
ClrList L2
Pause L1
Menu("RESTART","STOP",Q,"RECONVERTIR",S
Lbl S
YüX
Input "RECONV=",Y
Goto R
Lbl Q



----------------------
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 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Lun 16 Juil 2012, 14:43   Citer 

Le meilleur que j'ai vu jusque la est celui de mdr1 dans le tuto dans ma signature. À côté du sien, on est tous des petits joueurs ici ... winkle.gif

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 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 16 Juil 2012, 19:37   Citer 

Mon programme est (presque) aussi bien que le sien : convertisseur de mdr1.

-----
EDIT: il a optimisé son programme encore plus que dans mes derniers souvenirs, donc il demeure finalement bien plus léger que le mien.
De plus je n'avais pas à l'époque compris le but d'absoluement toutes ses astuces.

Cependant,
Mon programme occupe 265 octets de base.
Si j'enlève mes options, j'arrive à 189 octets.
Et mdr1 occupe 184 octets

Il me bat avec l'usage de Ans, une astuce avec inString, et une meilleure gestion des variables.

----------------------
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 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Lun 16 Juil 2012, 20:11   Citer 

Hé ouais tongue.gif

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 Adresse email Haut de page Bas de page 
 
rossj
Invité
Posté le : Dim 22 Sep 2013, 10:07   Citer 

comment vous faite pour trouver ClrList et Delvar sur la machine" ti 82" ? 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 22 Sep 2013, 11:14   Citer 

Bonjour,
DelVar est dans l'onglet "prgm".
Tu peux l'utiliser à la place de ClrList.

----------------------
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 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 22 Sep 2013, 12:26   Citer 

... et ClrList est dans le menu [stat].
Je suis contre l'usage de DelVar sur les listes, car cela pertube l'éditeur de listes, mais chacun fait comme il veut.

Ma signature donne le catalogue de toutes les fonctions.

----------------------
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é    



 
pito2901



Autorisation : Membre
Nb de messages : 107
Inscrit le : Sam 20 Avr 2013, 15:43
Posté le : Jeu 24 Oct 2013, 16:11   Citer 

Cependant ld, tu as écris:


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



Et le résultat est (59318)10.

----------------------

visitez ma page ti82stats.fr
 Adresse email Haut de page Bas de page 
 
Dragarta
Invité
Posté le : Sam 13 Jui 2015, 16:31   Citer 

Salut, comment on fait le ¤ sur une ti82 stat ??

  Haut de page Bas de page 
 
Mingerton



Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
Posté le : Sam 13 Jui 2015, 16:51   Citer 

Où vois tu ce caractère ?

Si tu parles du ü, c'est une convention du forum pour la touche sto (sor ton clavier). Si tu passes ta souris dessus tu verras même la touche.

----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)

Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN
 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 14 Jui 2015, 12:27   Citer 

"¤" est ici le petit "L" des listes que tu trouveras dans le catalogue sous "jed("

----------------------
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 
 
Razteck
Invité
Posté le : Jeu 17 Sep 2015, 21:26   Citer 

Vous étes nul il y a aucun programme qui ne fonctionne jusqu'au bout. Toujours des erreur à corriger. La moindre des chose quand on poste des programmes c'est de vérifier qu'ils marchent.

  Haut de page Bas de page 
 
m@thieu41



Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Ven 18 Sep 2015, 18:43   Citer 

La moindre des choses quand on est debile c'est de s acheter un cerveau, ou au moins de faire semblant.

----------------------
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 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





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