Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 11 Nov 2009, 0:42
Il y a déjà celui du site (facteur) mais j'avais dans l'esprit de faire quelque chose par moi-même et j'ai donc fait celui-ci.
DECOMPO
Code
Normal
EffEcr
Input "ENTIER",A
EffEcr
EffListe L1,L2
0->U
0->T
-------v
0->S
-------^
1->P
A->B
For(W,2,B,2)
IF A/W=ent(A/W)
Then
U+1->U
W->L1(U)
0->V
0->D
0->P
A->C
While D=ent(D)
V+1->V
C/W^V->D
End
C/W^(V-1)->A
T+1->T
V-1->L2(T)
-------v
S+1->S
If S=9
8->S
output(S,1,W
ent(log(W))+1->R
output(S,R+2,"^"
output(S,R+4,V-1
-------^
If A=1
Stop
End
If W>[racine](B) et P=1
Then
Disp A,"PREMIER"
Stop
End
If W=2
1->W
End
-------v
If dim(L1)>8
Then
EffEcr
Disp "MANQUE DE PLACE","VOIR L1 et L2"
End
-------^
Les parties encadrées sont facultatives car elles permettent seulement un affichage ludique. Cet affichage est limité mais on peut consulter les listes L1 et L2 (consultables dans tous les cas).
L1 contient les facteurs et L2 contient leurs puissances respectives.
---------------------- 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)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 02 Fév 2011, 19:57
-Voici le meilleur compromis entre puissance et poids.
-la liste 1 : les facteurs à l'arrache ; la liste 2 : les puissances pour quand la 1 regorge de multiples.
Prompt A
ClrList L1,L2
A->B
0->U
0->V
2->W
prgmDECOMP¤
For(W,3,B,2
prgmDECOMP¤
If A=1
Goto 1
If W>root(A)
A-2->W
End
Lbl 1
If U=1
Disp "PREMIER
If U=1
Stop
Pause L1
Pause L2
decomp¤ (sub)
Code
U->P
While A/W=iPart(A/W)
U+1->U
W->L1(U)
A/W->A
Disp W
End
If U=/=P
V+1->V
If U=/=P
U-P->L2(V)
¤ est thêta (le rond barré)
root désigne la racine carrée
---------------------- 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)
