HP 40G Manual Del Usuario página 160

Calculo Simbólico y Matemático con la HP 40G
/ffuncion/
Primera mejora
Se puede comprobar si N es par o sino ver si N tiene un divisor impar.
Funcion esprimo(N)
Local PREM, I, J
E( N) - J
Ö >
Si (N = 1) o (N mod 2 = 0) y (N
Falso- PREM
>
Si no
verdadero- PREM
>
/fsi/
3- I
>
si N mod I = 0 entonces
Falso - PREM
>
sino
I+2- I
>
/fsi/
/fmientras/
resultado PREM
/ffuncion/
Segunda mejora
Ver si N es divisible por 2 ó 3 o buscar si N tiene un divisor de la forma
6 k –1 ó 6 K + 1.
´ ´
funcion estprimo(N)
160
2) entonces
¹
Programas de Aritmetica