Problème de retour à la ligne en affichage de programme

[thomas425]

Bon voilà mon compteur en binaire marche très bien, j'aimerais maintenant l'étendre en convertisseur toutes bases (ou du moins jusque base hexadécimale, après je n'en vois plus trop l'utilité)
J'ai donc changer mon code en celui ci :

Code: Select all

Define base(n,b)=
Prgm
:Local r,s
:s:=""
:While n>0
:r:=n-b*int(((n)/(b)))
:s:=string(r)&s
:n:=int(((n)/(b)))
:EndWhile
:Disp s
:EndPrgm

Cela marche très bien pour toutes les bases <10 sauf qu'après avec la nécessité de nouveaux signe cela se complique.. J'ai donc fait quelques essais :

Code: Select all

Define base(n,b)=
Prgm
:Local r,s
:s:=""
:While n>0
:r:=n-b*int(((n)/(b)))
:If r=10 Then
:r:=A
:Endif
:s:=string(r)&s
:n:=int(((n)/(b)))
:EndWhile
:Disp s
:EndPrgm

ça marche, j'arrive à afficher a à la place de 10 mais le "problème est qu'à l'enregistrement du programme A se change en a (exemple 8a2 au lieu de 8A2) et donc c'est pas ce que je cherche..
J'ai donc essayé d'écrire ça :

Code: Select all

:r:="A"

Le soucis maintenant c'est que affiche 8"A"2 ..

Donc j'aimerais déjà régler ce problème, puis ensuite, savoir comment établir un logique pour que si r=11 alors r:=B puis sir r:=12 alors r:=C et ainsi de suite..

Merci

[critor]

ça marche, j'arrive à afficher a à la place de 10 mais le "problème est qu'à l'enregistrement du programme A se change en a (exemple 8a2 au lieu de 8A2) et donc c'est pas ce que je cherche..
J'ai donc essayé d'écrire ça :

:r:="A"

Le soucis maintenant c'est que affiche 8"A"2 ..

En effet, 'r' est donc parfois une chaîne de caractères et parfois un nombre, ce qui cause problème.
Modifions le code pour que r soit toujours une chaîne de caractère en déplaçant la fonction string et ça devrait aller

Code: Select all

Define base(n,b)=
Prgm
:Local r,s
:s:=""
:While n>0
:r:=string(n-b*int(((n)/(b))))
:If r="10" Then
:r:="A"
:Endif
:s:=r&s
:n:=int(((n)/(b)))
:EndWhile
:Disp s
:EndPrgm

[critor]

Corrigé le code ci-dessus, puisque r a changé de type.

[Bisam]

Tu peux aussi utiliser des listes à la place des chaînes de caractères.
C'est plus facile pour faire la manipulation inverse, c'est-à-dire revenir à la base 10 à partir de la base n.
En plus, dans une liste, si ton "chiffre" est plus grand que 10, ce n'est pas grave, tu n'es pas obligé de le convertir en lettre...

[thomas425]

Et c'est quoi la commande à rentrer pour une liste ?
Je comprends pas pq je ss pas obligé de le convertir en lettre ? C'est fait automatiquement ?

[critor]

Laisse tomber les listes.
Puisque tu veux des lettres majuscules, pas le choix: on utilise des chaînes.

[thomas425]

Mais ton code ne marche pas critor :s
ce serait pas lié au fait que tu attribues à r une chaîne de caractères, du coup r ne vaut plus "10" comme initalement, enfin je ne comprends pas trop la modification que tu as faite.

[Extra44]

EDIT : code de critor : effectivement : il faut corriger le code pour prendre en compte correctement le type de r
Proposition de correction :

Code: Select all

Define base(n,b)=
Prgm
:  Local r,s,sr
:  s:=""
:  sr:=""
:  While n>0
:     r:=n-b*int(((n)/(b)))
:     sr:=string(r)
:     If r=10 Then
:          sr:="A"
:     EndIf
:     s:=sr&s
:     n:=int(((n)/(b)))
:    EndWhile
:    Disp s
:EndPrgm

EDIT : la version avec liste (de Bisam) : c'est de faire une liste des chiffres de 0.. à ..F :
chiffre={'0','1','2','3','4','5','6','7','8','9','A','B','C',''D','E','F'}
Ensuite tu as le chiffre en caractère par chiffre[n°de chiffre+1] : il y a le '+1' car le premier chiffre commence à l'indice 1 et non à 0
ainsi chiffre[0+1] = chiffre[1]='0'
et chiffre[0+15] = chiffre[16]='F'

[Bisam]

Euh, non, en fait, je voulais juste faire une liste enregistrant les restes successifs des divisions euclidiennes.
On peut faire ainsi par exemple :

Code: Select all

Define chgbase(nn,base)
Func
Local i,rep
i:=1
while nn > 0
   rep[i]:=mod(nn,base)
   nn:=intdiv(nn,base)
   i:=i+1
endwhile
return rep
EndFunc

[critor]

Mais ton code ne marche pas critor :s

Sois plus précis en précisant ce que ça fait stp: mauvais résultat ou message d'erreur obtenu.