| Simplification d'algorythme |
| Auteur |
Message |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Dim 26 Sep 2010, 22:47
|
|
 |
Je cherche à isoler chacun leurs tours les décimales d'un nombre à 8 chiffres après la virgule.Pour cela,mon esprit tordu a marqué cet algorythme sur la calculette,et j'arrive pas à le simplifier  .Ici C est le nombre à 9 chiffres,le mieux pour les tests c'est de mettre qu'il est égal à 0.12345678.
| Code | :For(X,8,1,-1
:partEnt(10partdéc(partEnt((10^8*partDéc((C)))/10^X))->Z
:prgmD3D2
:End |
Au moins l'algorithme fonctionne mais il prend 41 octets à lui tout seul et il est censé faire parti d'un processus rapide donc 
|
 |
  |
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Dim 26 Sep 2010, 23:12
|
|
|
J'arrive à faire une boucle à 43 octets:
| Code |
0->D
For(X,1,8
D->E
partEnt(C10^X->D
D-10E->F
prgmD3D2
End |
Sangohan38
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Lun 27 Sep 2010, 20:58
|
|
|
For(A,1,8
ent(100partDéc((B10^(A-1))->D
prgmD3D2
End
mais vérifie quand même, je suis pas sur...
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Lun 27 Sep 2010, 22:56
|
|
|
Ca fonctionne si tu met un 10 au lieu du 100 et surtout un partent au lieu du ent (sinon, il y a risque d'arrondis au supérieur).
Sangohan38
PS: Et les balises codes, c'est pour les pros?
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 27 Sep 2010, 23:06
|
|
|
mdr On dirait un concours de maths. C'est sympa car chacun peut inspirer l'autre.
persaltéas, j'ai réfléchi de mon coté et je suis tombé sur la même chose que toi 
Sangohan, je suis parfaitement d'accord. J'ai encore été trop lent. (zut)
----------------------
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 |
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mar 28 Sep 2010, 0:22
|
|
|
Lol,pourtant j'étais passé par là,je sais pas pourquoi j'ai compliqué le truc.
|
| |
|
| |
