π
<-
Chat plein-écran
[^]

programme conversion base

Pour le TI-Basic sur Nspire

programme conversion base

Message non lude 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: 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
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant

Re: programme conversion base

Message non lude Bisam » 25 Sep 2020, 18:35

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)
Avatar de l’utilisateur
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: programme conversion base

Message non lude 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.
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant

Re: programme conversion base

Message non lude 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).
Avatar de l’utilisateur
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: programme conversion base

Message non lude 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 "," ?
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant

Re: programme conversion base

Message non lude rentech7289 » 18 Aoû 2021, 21:07

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
Avatar de l’utilisateur
rentech7289
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 66.4%
 
Messages: 107
Inscription: 16 Aoû 2021, 02:40
Localisation: Lorraine luxembourgeoise
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: programme conversion base

Message non lude kadtexas » 21 Aoû 2021, 18:04

rentech7289 ma contacté en privé mais comment le joindre en privé ?
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant

Re: programme conversion base

Message non lude rentech7289 » 01 Sep 2021, 02:37

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
Avatar de l’utilisateur
rentech7289
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 66.4%
 
Messages: 107
Inscription: 16 Aoû 2021, 02:40
Localisation: Lorraine luxembourgeoise
Genre: Homme
Calculatrice(s):
MyCalcs profile


Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 12 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1062 utilisateurs:
>1039 invités
>19 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)