| 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
|
|
 |
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  ) 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-
|
 |
  |
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 27 Oct 2010, 17:48
|
|
|
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
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 27 Oct 2010, 18:00
|
|
|
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).
|
| |
|
| |
-Coco-
Invité
|
Posté le : Mer 27 Oct 2010, 18:35
|
|
|
Bon, ben c'est bien ce que je pensais...
le programme va mesurer quelques octets de plus ^^'
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 27 Oct 2010, 18:49
|
|
|
quelles sont les 10 lignes de programme dont parle sangohan?
|
| |
|
| |
-Coco-
Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
|
Posté le : Mer 27 Oct 2010, 19:42
|
|
|
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!)
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 27 Oct 2010, 21:01
|
|
|
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^ú![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png) 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 |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 27 Oct 2010, 22:04
|
|
|
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
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Jeu 28 Oct 2010, 20:57
|
|
|
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 |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 01 Nov 2010, 0:50
|
|
|
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 |
| |
|
| |
