Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 51784
Réponses : 71
Type : discussion
Etat : réponses autorisées

Conversion décimal, binaire et hexadécimal - Page 4 / 4

m@thieu41 le 12/10/2013 à 18:27
Bonjour?
S'il vous plait?
Merci d'avance?

3 fois dans la semaine que je demande à croire que la politesse s'est perdue...

Nul besoin d'être un dieu en programmation pour recopier ce prgm...

Code
if Rép>=X
Disp "ERREUR !

Je te donnes les combinaisons de touches:
If -> [prgm],[1]
Rép -> [2nde],[( - )]
>= -> [2nde],[math],[4]
Disp -> [prgm],[E/S],[3]

Sinon tu peux regarder ici:
http://tout82.free.fr/forum/sujet.php?sujet=2833

Voilà!
Fafanene le 01/11/2013 à 18:56
Bonjour à tous,

Tout d'abord merci beaucoup à vin pour ce programme qui va certainement me faciliter la vie.

Mais j'ai le même soucis que damarus.

En effet la calculatrice, lorsque je mets un nombre binaire , m'indique une erreur sur la ligne "G->dim L1". Quelqu'un sait-il comment y remedier ?

Merci d'avance !

Fafanene
m@thieu41 le 01/11/2013 à 20:07
Quel est le type d'erreur?
Il y a une parenthèse:
Code
G->dim(L1

L1 se saisis avec [2nde],[1]
Fafanene le 02/11/2013 à 14:44
Bonjour et merci de m'avoir répondu !

Alors l'erreur indiquée par la calculatrice est "DIM INVALIDE"

J'ai bien mis des parenthèses (j'ai fais l'essai avec une et deux parenthèses au cas où), mais toujours le même problème karate.gif

J'ai bien mis L1 en tant que liste ([2nde]1)
m@thieu41 le 02/11/2013 à 15:41
Alors donne moi la valeur de G (après avoir quité le prgm tu fais [alpha],[G],[entrer] et tu me donnes la valeur qui va s'afficher).
Fafanene le 02/11/2013 à 15:55
Ah non désolé !!!

Je me suis trompé, je viens de comprendre ce que je devais entrer dans "NB CHIFFRE".

Encore désolé, et merci d'avoir essayé de m'aider !
m@thieu41 le 02/11/2013 à 17:35
Ok super bigmouth.gif
Si tu as d'autres questions n'hésites pas winkle.gif

Bonne continuation.
Fafanene le 03/11/2013 à 23:02
Merci beaucoup.

Bonne continuation à toi également !
Wildmind le 13/05/2015 à 17:42
Bonjour,

je suis nouveau sur le forum et j'essaye de faire des convertisseurs decimal/binaire/hexadecimal.

J'ai deja fait bin-dec et dec-bin mais je rame sur le programme dec->hexa. crazy.gif

j'ai trouvé une solution pour eviter que dans le resultat il modifie mes valeurs avec des lettres (si je mets 2E par exemple il va m'afficher 2*E avec la derniere valeur prise par E) , ce serait d'afficher chaque caractere a la ligne a chaque etape de la boucle.

J'ai vu que vous utilisiez les fonctions L1 et L2 frozen.gif , pourriez vous m'expliquer ce qu'elles font et comment les utiliser? j'aimerai faire le programme par moi meme et pas copier coller un programme deja fait, afin d'approfondir mes connaissances d'algo bigmouth.gif

Bien a vous,
Wildmind happy.gif

NB: les emojis de ce forum sont extras mdr
Mingerton le 14/05/2015 à 11:44
Pour coder un convertisseur de base à lettres à base sans, ou inversement, le plus simple est l'utilisation des chaînes de caractères. Par exemple :
Code
"ABC ceci est une chaîne"->Str1

Ces variables e trouvent dans Vars-String. Elles ont des fonctions spécifiques qui te seront utiles :

— inString(Chaîne,Sous-chaîne) : renvoie la position du premier caractère de la sous-chaîne dans le chaîne
— sub(Chaîne,position de départ,longueur) : crée une sous chaîne de longuer donnée à artir de la position donnée dans la chaîne de départ.
— expr(Chaîne) : calcule la valeur de ce qu'il y a dans une chaîne. Par exemple, expr("3+3")=6
— length(Chaîne) : renvoie la longueur de la chaîne
— Equ>String(Equation,chaîne) : stocke le contenu d'une équation(Y1,Y2,...) dans la chaîne donnée
— String>Equ(Chaîne,équation) : l'inverse de Equ>String()

Voilà, avec ça tu devrais pouvoir t'en sortir winkle.gif
ld le 14/05/2015 à 14:27
NOUVELLE VERSION

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

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                 ----   (Base d'entré).
:Input "A ",Y                       ----   (Base de sortie).
:Input "N= ",Chaîne1                ----   (Valeur à convertir).
: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
Mingerton le 14/05/2015 à 16:00
Il ne voulait pas qu'on lui donne le code mais bon... D'ailleurs j'avais déjà allégé ce code sur l'autre forum tongue.gif