Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Convertisseur Décimal -> Tout autre base
Auteur Message
JormungandR
Invité
Posté le : Jeu 22 Mai 2008, 17:31   Citer 

J'ai remarqué que tout vaut convertisseur faisait plus de 30-40 et ne faisait que le décimal binaire voir l'hexadécimal, et bien là j'en ait un qui vous fait toute les bases et qui fait pas tellement plus que les votre.


Code
:ClrHome
:Prompt A
:Prompt B
:ClrHome
:8->Y
:16->X
:While A>B-1
:int(A/B)->Q
:A-B*Q->R
:Q->A
:Output(Y,X,R
:X-1->X
:If X=0
:Then
:16->X
:Y-1->Y
:End
:End
:Output(Y,X,Q



Et voilà dite moi ce que vous en pensez =)

  Haut de page Bas de page 
 
Nicro
Invité
Posté le : Sam 07 Jui 2008, 14:38   Citer 


Code
:Input "nombre a convertir:",A
:input "base:",B
:Lbl 1
:int(A/B)=>Q
:A-B*Q=>R
:Disp R
:Pause
:Q=>A
:If Q=0
:Then
:Stop
:Else
:Goto 1



il suffit ensuite de lire les chiffres dans l'ordre inverse d'arrivée et vous avez votre nombre dans la base souhaitée :p

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Nicro
Invité
Posté le : Sam 07 Jui 2008, 14:40   Citer 

au fait désolé pour le double poste mais "=>" est la touche avec la fleche bien sur happy.gif

  Haut de page Bas de page 
 
Nasaki
Invité
Posté le : Ven 13 Fév 2009, 11:13   Citer 

il est super ton truc
BRAVOOOOOOOOOOOOO
bravo
genial
court en plus
merci

  Haut de page Bas de page 
 
garbit
Invité
Posté le : Jeu 26 Fév 2009, 16:47   Citer 

Juste au passage, si tu veux ne pas avoir a lire le résultat a l'envers il suffit de mettre un output(5,D,R) et aprés le "Else" tu met D-1=>D....

  Haut de page Bas de page 
 
Nasaki
Invité
Posté le : Lun 18 Mai 2009, 20:50   Citer 

il est bien mais pour l'hexadecimal c mort
tu peut elaborer stp
merci

  Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Jeu 21 Mai 2009, 13:10   Citer 

Voici une version qui convertie en héxadecimal :


Code
:Clrhome
:
:Input "Base = ",B
:Input "Nbre (Dec) = ",A
:17üD
:
:Repeat Q=D
:iPart (A/B)üQ
:A-(B*Q)üR
:QüA
:Output(5,1,"Resultat :"
:If B=16 and R>9:Goto 3
:D-1üD
:Output(7,D,R
:End
:Lbl S
:Stop
:
:Lbl 3
:D-1üD
:If R=10:Output(7,D,"A"
:If R=11:Output(7,D,"B"
:If R=12:Output(7,D,"C"
:If R=13:Output(7,D,"D"
:If R=14:Output(7,D,"E"
:If R=15:Output(7,D,"F"
:Goto S




En prime, pas besoin de se tordre le coup pour lire le résultat à l'envers godgrace.gif

 Adresse email Haut de page Bas de page 
 
Chris
Invité
Posté le : Sam 06 Jui 2009, 15:30   Citer 

Bonjours,


J'ai un petit problème

En effet, j'ai une Texas TI-82 STATS

J'appuie sur la touche PRGM
Je rentre le programme afficher ci dessous :


Code
:Clrhome
:
:Input "Base = ",B
:Input "Nbre (Dec) = ",A
:17üD
:
:Repeat Q=D
:iPart (A/B)üQ
:A-(B*Q)üR
:QüA
:Output(5,1,"Resultat :"
:If B=16 and R>9:Goto 3
:D-1üD
:Output(7,D,R
:End
:Lbl S
:Stop
:
:Lbl 3
:D-1üD
:If R=10:Output(7,D,"A"
:If R=11:Output(7,D,"B"
:If R=12:Output(7,D,"C"
:If R=13:Output(7,D,"D"
:If R=14:Output(7,D,"E"
:If R=15:Output(7,D,"F"
:Goto S



Problème :

1 : les mot "base, et Nbre , je ne les trouve pas ,donc je les ecrit avec les lettres de la calculette , normal ?


Ensuite ,une foix le programme recopier n, je vais le sélectionner dans la liste , je fait exe , et la il me dit Syntax Error....

Sauriez vous d'où cela peut venir , merci.

  Haut de page Bas de page 
 
KillerMapper



Autorisation : Membre
Nb de messages : 40
Inscrit le : Ven 06 Fév 2009, 21:49
Posté le : Ven 12 Jui 2009, 23:22   Citer 

Les mots tu les écris avec les lettres, c'est bon.

Pour le syntax error, tu t'es trompé quelque part je suppose... La calculette montre quel endroit?

----------------------
Level designer de Mario Kart Source
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 14 Jui 2009, 9:30   Citer 

je ne la vois pas ici regarde plus profondement

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





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

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa