Posté le 09/10/2013 18:41
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 51 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
Citer : Posté le 09/10/2013 18:48 | #
Les listes ne peuvent pas enregistrer de caractères. Il faut que tu convertisses des chiffres (qui sont des caractères) en nombres.
Un membre avait publié un programme qui le faisait, quelqu'un sait où le retrouver ?
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother <<< >>> Teste mon générateur de mots nouveaux <<<
>>> Random Youtube Video <<<
Citer : Posté le 09/10/2013 18:51 | #
@Totoyo
La fonction "Exp" permet d'éxecuter un calcul qui est dans une Str (par exemple "18*B")
@Blerain
A la première exécution de la boucle B=1
Donc tu prends bien 9B-8+8 = 9 caractères
Mais a la secondes exécution de la boucle B=2 (Comme tu utilise un For ... To ...)
Ce qui te fais 9B-8+8 = 18 caractères
D'ailleurs pourquoi avoir fait 9B-8+8 ?
Ajouté le 09/10/2013 à 18:55 :
Voilà comment j'aurais écrit le programme :
Exp(StrMid(Str 10,B,9))->List 1[(B+8)/9]
Next
Citer : Posté le 09/10/2013 18:56 | #
OK c'est bon merci !
J'suis trop bête sa fais trois heures que je bloque dessus alors que je me sers tout le temps de cette fonction ...
Une fois pendant 4 mois.
Une autre pendant 6 mois.
Citer : Posté le 09/10/2013 18:58 | #
J'ai rajouté le programme simplifié, il faut utiliser la fonction "Step" pour augmenter B de 9 en 9
Citer : Posté le 09/10/2013 19:06 | #
Un membre avait publié un programme qui le faisait, quelqu'un sait où le retrouver ?
J'avais fait Str2Int et Int2Str, disponibles ici : http://www.planet-casio.com/Fr/programmes/programme1828-1-alpha-convert-dark-storm-programme.html
Citer : Posté le 09/10/2013 19:08 | #
Ok merci
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother <<< >>> Teste mon générateur de mots nouveaux <<<
>>> Random Youtube Video <<<
Citer : Posté le 09/10/2013 19:15 | #
mais c'est le genre de programme facile à faire:
Str -> Int
"0123456789"->Str 20
0->A
For 1->B To StrLength Str 1
10A+StrSrc(Str 20, StrMid(Str 1, B, 1))-1->A
Next
Int -> Str (ne fonctionne que pour les entiers naturels, mais peut être adapté aux réels et aux complexes)
"0123456789"->Str 20
""->Str 1
While A
StrMid(Str 1, 10Frac (A/10), 1)+Str 1->Str 1
Int (A/10)->A
WhileEnd
Comme d'hab, c'est fait en 2 minutes, c'est pas testé, mais c'est théoriquement fonctionnel
Citer : Posté le 09/10/2013 19:23 | #
Str -> Int
est remplaçable par exp() comme l'a dit Blerain, quant a Int -> Str j'aimerais vous proposer ma version:
(codée par hasard aujourd'hui quand je me fessais chier en info, en même temps que quelques autres petit programmes utiles)
'#INPUT
Int Ans
'#OUTPUT
'Str 20
""->Str 20
For (1+Int log Abs Ans)->r To 1 Step -1
StrMid("0123456789",1+Int Abs (10Frac .1Ans),1)+Str 20->Str 20
Ans/10
Next
Ans<0=>"-"+Str 20-Str 20
cette version gère les nombre entiers positif et négatif (entiers relatifs)
j'ai pris l'habitude de faire mes programmes sur ce model quand ils sont conçu en tant que sous programme commun a plusieurs autres programmes (avec un nom explicite bien sur)
l'utilisation ce fait comme ceci pour convertir mettre 146 dans le str 1:
Prgm "INT2CHAR"
Str 20->Str 1
-en C:
-Un pong.
-Un projet en pause. Je compte le reprendre de temps en temps: Summer Cursed
-mon tuto sur les Str
Mes calto: G25+, G75
Mon minecraft en dévelopement
-Portal2D de JavierXD
-CalCraft de Wime
-GeekBros du groupe GeekBrothers (Eiyeron,Siapran,KevKevVTT,Adbook,LIMachi)