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: Tout sélectionner

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: Tout sélectionner

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: Tout sélectionner

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: Tout sélectionner

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: Tout sélectionner

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: Tout sélectionner

1011101

En TI-Basic, j'ai utilisé

Code: Tout sélectionner

->

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

Code: Tout sélectionner

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