Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Convertisseur Décimal -> Tout autre base

Convertisseur Décimal -> Tout autre base

Auteur

Message

JormungandR
Invité

Posté le : Jeu 22 Mai 2008, 17:31

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 =)

Nicro
Invité

Posté le : Sam 07 Jui 2008, 14:38

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

Nicro
Invité

Posté le : Sam 07 Jui 2008, 14:40

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

Nasaki
Invité

Posté le : Ven 13 Fév 2009, 11:13

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

garbit
Invité

Posté le : Jeu 26 Fév 2009, 16:47

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

Nasaki
Invité

Posté le : Lun 18 Mai 2009, 20:50

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

denis

Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13

Posté le : Jeu 21 Mai 2009, 13:10

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

Chris
Invité

Posté le : Sam 06 Jui 2009, 15:30

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.

KillerMapper

Autorisation : Membre
Nb de messages : 40
Inscrit le : Ven 06 Fév 2009, 21:49

Posté le : Ven 12 Jui 2009, 23:22

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

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Dim 14 Jui 2009, 9:30

je ne la vois pas ici regarde plus profondement

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Convertisseur Décimal -> Tout autre base

Page générée en 6 requêtes

Flux RSS