Traduccion En La Hp 40G - HP 40G Manual Del Usuario

Calculo Simbólico y Matemático con la HP 40G
si N 1 so
¹
FACT + N 1 -> FACT
{ }
/fmientras/
resultado FACT
/ffunción/
8.3.2

Traduccion en la HP 40G

Traducimos el último algoritmo.
La HP40G no conoce la lista , por lo tanto para inicializar L1 con la lista
{}
vacía escribimos:
CLEAR L1.
El programa FACTPREM :
INPUT N "N" 1:
; ;;;
ERASE:
0 -> K:
CLEAR L1:
WHILE N MOD 2 == 0 REPEAT
1+K -> K:
N/2 ->N:
END:
IF K 0 THEN
¹
2, K -> L1:
{ }
END:
3->D:
WHILE D*D N REPEAT
£
0 -> K:
Programas de Aritmetica 155