Tabla de contenido
Calculo Simbólico y Matemático con la HP 40G
- segunda mejora
Comprobar si 2 divide a N probamos los divisores impares de D entre 3 y
E(
N).
Ö
En la lista FACT cada divisor va seguido de su exponente:
decomp(12) =
2,2,3,1
{
fonction facprem(N)
local KD FACT
->FACT
{}
0 -> K
mientras N mod 2 = 0 ejecuta
K+1 -> K
N/2 -> N
/f mientras /
si K
0 so
¹
FACT +
2 K
-> FACT
{
}
/fsi/
3-> D
mientras D*D
N ejecuta
£
0 -> K
mientras N mod D = 0 ejecuta
K+1 -> K
N/D -> N
mientras
si K
0 so
¹
FACT +
D K
-> FACT
{
}
/fsi/
D+2 -> D
/f mientras /
154
.
}
Programas de Aritmetica
Tabla de contenido
