Page 1 of 1

programme conversion base

Unread postPosted: 25 Sep 2020, 18:31
by 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

Re: programme conversion base

Unread postPosted: 25 Sep 2020, 18:35
by 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)

Re: programme conversion base

Unread postPosted: 26 Sep 2020, 10:49
by 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.

Re: programme conversion base

Unread postPosted: 26 Sep 2020, 11:41
by 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).

Re: programme conversion base

Unread postPosted: 28 Sep 2020, 09:28
by 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 "," ?