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
Décomposition en facteurs premiers
Auteur Message
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 11 Nov 2009, 0:42   Citer 

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)

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 : Mer 02 Fév 2011, 19:57   Citer 

-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.

VERSION MODERNE DE DECOMPO (groupe de fichiers : decomp est le principal des deux)

decomp (main)
Code
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)

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