Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
convertir un reel
Auteur Message
-Coco-



Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Mer 27 Oct 2010, 17:39   Citer 

Bonjour à toutes et à tous.
'ai un petit problème, et certains connaissent probablement mieux leur Ti 82 stats fr que moi.
Voilà, dans un programme (gardé secret actuellement godgrace.gif ) j'ai besoin de convertir un réel en une chaîne de caractères.

exemple :
J'ai A qui vaut 26.
Je veux donc une chaîne qui vaut "26"

Existe-t-il une fonction pour ça ?
Ou bien suis-je obligé de ruser en me faisant chier avec un programme de 10 lignes ?

Merci d'avance,
-Coco-

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 27 Oct 2010, 17:48   Citer 

Je ne comprend pas exactement ce que tu veux faire. Tu veux que la valeur de A soit mise dans une chaine c'est sa?
Si c'est sa, tu doit passer par les 10 lignes de programme.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 27 Oct 2010, 18:00   Citer 

tiens c'est bizzare j'ai eu exactement besoin de la mème chose il y a pas longtemps pour un programme également secret.
si ça se trouve, on bosse sur la même chose.


je te dis quand même que j'ai rien trouvé, par contre dans l'autre sens ça ce fait (de chaine vers variable numérique).

 Adresse email Haut de page Bas de page 
 
-Coco-
Invité
Posté le : Mer 27 Oct 2010, 18:35   Citer 

Bon, ben c'est bien ce que je pensais...
le programme va mesurer quelques octets de plus ^^'

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 27 Oct 2010, 18:49   Citer 

quelles sont les 10 lignes de programme dont parle sangohan?

 Adresse email Haut de page Bas de page 
 
-Coco-



Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Mer 27 Oct 2010, 19:42   Citer 

Un truc qui convertit une variable en chaîne.
genre qui découpe la variable dans une liste, puis qui récupère chaque bout de la liste et l'associe avec une sous-chaîne pour obtenir au final une chaîne où le nombre est écrit.
genre :
-nombre en entrée (ex : 125)
-découpage en liste (ex : {1,2,5})
-recherche dans une chaîne pour que 1 = "1", etc
-ptites corrections de bugs
-chaîne en sortie (ex : "125")

c'est l'algo de mon programme OTOSTR qui convertit la variable O en chaîne. donc dans le programme on obtient :
:A>O
:prgmOTOSTR
ce qui revient à récupérer la chaîne de A.

Et ensuite, de mon côté le programme ultrasecret est un programme qui convertit une image en code pur et dur. (en temps direct)

genre sur le programme tu choisis "Ligne", tu choisis x1,y1,x2,y2 avec des "Input" tous seuls, puis ça te trace une ligne sur ton écran et en même temps entre dans la chaîne 1 : chaîne1 + "Ligne(X1(/i],[i]Y1,X2,Y2):" -> chaîne 1

ça sera utile genre pour les écrans de démarrage un peu complexes ou on est trop radins pour sauvegarder une image (y'a d'autres fonctions, comme FillREct etc)

Et tout ça en basic ! (c'est pas du gâteau!)

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 27 Oct 2010, 21:01   Citer 

Voici un programme qui remplit cette fonction pour les entiers naturels.
J'aurais dû le faire plus tôt, cette question de conversion me rend dingue depuis très longtemps.

Code
Prompt A
" "üStr1
1üB
0üW
"0123456789"üStr2
While int(A*10^úW
W+1üW
int(10fPart(A*10^úW)üB
sub(Str2,B+1,1)+Str1üStr1
End
Disp Str1


Edit: il y a un bug quand il y a un zéro
Edit: bug corrigé

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 27 Oct 2010, 22:04   Citer 

Pourquoi tu met pas le 0 à la fin de ta chaine? Ça enlèvera peut-être ton bug et ça ne change pas grand chose.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 28 Oct 2010, 20:57   Citer 

Non, le bug n'a rien à voir avec ça.
Je l'ai corrigé, je vais l'éditer.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 01 Nov 2010, 0:50   Citer 

Ce programme gère tous les réels en écriture normale.

Code
Prompt C
abs(CüA
"."üStr1
"0123456789"üStr2
0üW
While iPart(Aý^(úW
W+1üW
iPart(10fPart(Aý^(úWüB
sub(Str2,B+1,1)+Str1üStr1
End
0üW
While fPart(Aý^(W
iPart(10fPart(Aý^(W)üB
Str1+sub(Str2,B+1,1)üStr1
W+1üW
End

If not(fPart(A)) and length(Str1)>1
sub(Str1,1,length(Str1)-1)üStr1
If C=0
"0"üStr1
If C<0
"ú"+Str1üStr1

Disp Str1



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa