programme conversion base

[kadtexas]

Bonjour
Il s'agit d'un programme, de Pierrotdu18 09/01/2014, qui convertit les décimaux entiers dans différentes bases.
Je l'ai "piqué" et j'ai ajouté un code qui convertit la partie décimale dans le cas d'un entier à virgule.
le programme de Pierrot reçoit (a,d)
a=entier à convertir
d=base de la conversion
Mon code: "peut être il y a mieux"

Code: Select all

tabl:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]:
If d=2 and int(a)≠a Then:
avirgule:=a-int(a):
j:=1:
While j<10:
If int(avirgule*2)=0 Then:
tabl[1,j]:=0
:EndIf:
If int(avirgule*2)=1 Then:
  tabl[1,j]:=1:
EndIf: 
avirgule:=avirgule*2-int(avirgule*2):
   If avirgule=0.5 Then: 
  tabl[1,1+j]:=1:   
Exit: 
EndIf:
j:=j+1:
EndWhile:EndIf:
a:=int(a)

(pour le programme de Pierrot)
Exemple:28,8625
Le programme de Pierrot,pour 28 renvoie la conversion sous la forme:"11100"
Mon code renvoie pour 8625 la conversion sous la forme [11011100100....]

Mon problème: j'ai tout essayé pour avoir la forme: 11100,11011100100.... mais je n'y arrive pas !
En plus il y'a des zéros de queue car la matrice ne permet pas de se remplir petit à petit comme une liste.
Avec une liste il y a les accolades les virgules de séparation etc...

Merci d'avance pour une solution

[Bisam]

Utilise une chaîne de caractères pour stocker la réponse.

Par ailleurs, à la place de :

Code: Select all

If int(avirgule*2)=0 Then:
tabl[1,j]:=0
:EndIf:
If int(avirgule*2)=1 Then:
  tabl[1,j]:=1:
EndIf: 

tu peux simplement écrire

Code: Select all

tabl[1,j]:=int(avirgule*2)

[kadtexas]

Quand je remplace tabl[1,j]:=1 par tabl[1,j]:=int(avirgule*2) ça ajoute des "."
[1.1.0.1.1.1.0.0.1.0 0 0...0]
Il y a aussi les crochés qui posent problème.

[Bisam]

Mon message n'était pas très clair.
Je disais d'une part que pour résoudre ton problème avec les listes, tu pouvais remplacer les listes par des chaînes de caractères.
Il faut pour cela réécrire entièrement le programme.

Dans un deuxième temps, je disais que l'on pouvait simplifier ton programme, en remplaçant les 6 lignes citées par une seule.
Je ne pensais pas que la fonction "int", qui est censée renvoyer la partie entière d'une expression, ne renvoyait pas un nombre entier mais un flottant dont la partie décimale est nulle... D'après moi, c'est une hérésie... mais j'ai peut-être tort.

PS : Encadre les codes que tu postes avec les balises [ code ] et [ / code ] (sans les espaces rajoutées volontairement ici).

[kadtexas]

tu pouvais remplacer les listes par des chaînes de caractères.

j'ai modifié le code comme tu l'a suggéré.
C'est bête que je n'arrive pas à manipuler les instructions pour stocker dans une chaine de caractères ?
J'ai utilisé l'instruction string mais c'est toujours le même problème !
On dirait qu'il y a rien à faire.
Je ne sais pas comment il a fait Pierrot pour obtenir les 1 et 0 sans "." , sans "," ?

[rentech7289]

Il faut que tu crées une chaîne vide; Tu itères sur ton résultat, à chaque fois que tu as 0 ou 1, tu concatènes ce résultat à la chaîne créée. Exemple en python:

Code: Select all

r= '1,011.101'  #résultat temporaire
s = ''    # sortie finale
for i in  range(0, len(r)):
    c = res[i]
    if c in {'0', '1'}:
        s += c
       
print(s)


En TI-Basic:

Code: Select all

Prgm
"1,011.101" ->r
" "->s
dim(r)->l
For i, 1, l
mid(r, i,1) -> c
If c="0" or c="1"
  s&c->s
EndFor
Disp "s="&s
EndPrgm


Résultat final:

Code: Select all

1011101

En TI-Basic, j'ai utilisé

Code: Select all

->

pour 'sto'. Si on veux récupérer le résultat, il faut retourner

Code: Select all

s

[kadtexas]

rentech7289 ma contacté en privé mais comment le joindre en privé ?

[rentech7289]

Je t'ai contacté pour que tu lises le post au-dessus de ta question du 21 août.
Pour envoyer un message privé, tu vas dans Profil, puis Panneau de l'utilisateur. Tu verras un onglet Messages privés