B -
A:
>
R -
B:
>
END:
DISP 4
"NSD " A:
;
FREEZE:
Versión recursiva para dos números enteros A y B.
Con la HP 40G no podemos escribir el programa MCD:
DISP 3
"MCD "
A,B
;
{
FREEZE:
IF B
0 THEN
¹
A MOD B -
R:
>
B -
A:
>
R -
B:
>
NSDR:
ELSE
DISP 3
"MCD "A:
;
FREEZE:
END:
Primero se almacenan los valores en A y B.
El programa PGCDR visualiza el MCD que se está calculando.
La llamada recursiva PGCDR nos devuelve al programa que hay que ejecutar
pulsando RUN el menú principal.
El programa PGCDR visualiza los MCD intermediarios calculados.
Programas de Aritmetica
Calculo Simbólico y Matemático con la HP 40G
:
}
143