HP 40G Manual Del Usuario página 144

Calculo Simbólico y Matemático con la HP 40G
También se puede sustituir PGCDR en el programa anterior por RUN PGCDR,
para no tener que pulsar RUN del menú, y suprimir las visualizaciones
intermedias, para usar ese programa en un programa que ejecute entradas y
salidas:
El programa recursivo PGCDR se convierte en programa recursivo PR:
IF B
A MOD B -> R:
B -> A:
R -> B:
RUN PR:
END:
Se inserta el programa PR en un programa que efectúa entrada y salidas.
PROMPT A:
PROMPT B:
RUN PR:
ERASE:
MSGBOX A:
Versión iterativa para dos números complejos
Si utiliza la función de cálculo simbólico IREMAINDER en lugar de MOD de
los programas precedentes, MCD (ó PR) puede entonces tener como
parámetros números enteros de Gauss, siempre y cuando se sustituya los
nombres de las variables A,B,R, por Z1,Z2,Z3 y cambie el test de parada.
Tenemos la versión iterativa:
PROMPT Z1:
PROMPT Z2:
DISP 3;"PGCD "{Z1,Z2}:
WHILE ABS(Z2) 0 REPEAT
XNUM(IREMAINDER(XQ(Z1),XQ(Z2)) ->Z3:
Z2 ->Z1:
144 Programas de Aritmetica