Tabla de contenido
resultado FACT
/ffuncion/
Primera mejora
sólo se prueban los divisores D entre 2 y E(
Si N = D1* D2 obtendremos :
D1
E(
N) ó D2
£
Ö
£
D1 * D2
(E(
N) + 1)
³
Ö
funcion facprem(N)
local D FACT
2-> D
{} -> FACT
mientras que D*D
£
si N mod D = 0 entonces
FACT + D -> FACT
N/D -> N
sino D+1-> D
/fsi/
/fmientras que/
FACT + N -> FACT
resultado FACT
/ffonction/
Programas de Aritmetica
Calculo Simbólico y Matemático con la HP 40G
E(
N), de lo contrario obtendríamos:
Ö
2
> N.
N ejecuta
N).
Ö
153
Tabla de contenido
