π
<-
Chat plein-écran
[^]

programme conversion base

Pour le TI-Basic sur Nspire

programme conversion base

Unread postby kadtexas » 25 Sep 2020, 18:31

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
User avatar
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Level up: 50%
 
Posts: 248
Joined: 29 Jan 2015, 19:32
Gender: Not specified
Class: etudiant

Re: programme conversion base

Unread postby Bisam » 25 Sep 2020, 18:35

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)
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 49.7%
 
Posts: 5501
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: programme conversion base

Unread postby kadtexas » 26 Sep 2020, 10:49

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.
User avatar
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Level up: 50%
 
Posts: 248
Joined: 29 Jan 2015, 19:32
Gender: Not specified
Class: etudiant

Re: programme conversion base

Unread postby Bisam » 26 Sep 2020, 11:41

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).
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 49.7%
 
Posts: 5501
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: programme conversion base

Unread postby kadtexas » 28 Sep 2020, 09:28

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 "," ?
User avatar
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Level up: 50%
 
Posts: 248
Joined: 29 Jan 2015, 19:32
Gender: Not specified
Class: etudiant


Return to Nspire-Basic

Who is online

Users browsing this forum: No registered users and 3 guests

-
Search
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Découvre les nouvelles fonctionnalités en Python de l'OS 5.2 pour les Nspire CX II
Découvre les nouvelles fonctionnalités en Python de l'OS 5.5 pour la 83PCE/84+C-T Python Edition
Omega, le fork étendant les capacités de ta NumWorks, même en mode examen !
1234
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
566 utilisateurs:
>549 invités
>11 membres
>6 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)

-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)