Para apreciar esta página correctamente, debes instalar Fa-122Doc.ttf en tu computadora

Título: DESEVAL
Autor: Jorge Cevallos Manzano 
Modelo: CFX9850 (Hecho en CFX9850Ga+)
Descripción: Ingrese un polinomio y el programa lo factorará usando el método de descomposición por evaluación

Bajar programa

ClrText·
Green "X^"?‡G~H·
Isz G:ClrText:1‡D·
G‡Dim List 1·
H‚1‡Dim List 2·
For 1‡A To G·
ClrText·
Green "X^"·
Locate 3,1,G‚A·
?‡List 1[A·
Next·
Lbl 1·
List 1[A‡r·
r=0îList 1[A‚1‡r·
1‡B·
Lbl 0·
While B<Abs r And Frac (r¤B·
Isz B·
B>Abs r¤2îAbs r‡B·
Locate 9,2,B·
WhileEnd·
B>Abs rîGoto 2·
0‡X·
For 1‡A To G·
X‰List 1[A]B^(G‚A‡X·
Next·
B‡C·
If B>0·
Then ‚B‡B·
Else 1‚B‡B·
IfEnd·
ClrText·
Locate 9,2,B·
Locate 9,4,Abs r·
Locate 9,6,G‚2·
XîGoto 0·
‚C‡List 2[D·
For 1‡A To G‚1·
C List 1[A]‰List 1[A‰1]‡List 1[A‰1·
Next·
Isz D·
Dsz G·
G>2îGoto 1·
Lbl 2·
ClrGraph·
AxesOff·
If Sum Abs List 2=0·
Then Text 20,35,"NO ES POSIBLE"·
Text 30,46,"FACTORAR"·
Goto F·
IfEnd·
1‡C~D·
0‡E·
For 1‡A To H‚1·
If List 2[A·
Then Isz E·
Text C,D,"X‰"·
Text C,D‰8‚4(List 2[A]<0,List 2[A·
C‰6‡C·
C>46îD‰30‡D·
C>46î1‡C·
IfEnd·
Next·
Orange Horizontal ‚1.8·
Green Text 52,1,"X^"·
Green Text 52,10,H‚E·
1‡B·
For 1‡A To H‰1‚E·
List 1[A‡C·
Text 58,B,C·
B‰7‡B·
CîB‰5(Int log Abs C‰(C<0‡B·
Next·
Lbl F·
ClrText·
PxlOff 63,127»·
ClrGraph·
ClrList:AxesOn:Stop