Calculo Simbólico y Matemático con la HP 40G
resultado A
/ffonction/
Versión recursiva
Se escribe la definición recursiva vista anteriormente
Función MCD(A,B)
Si B
0 entonces
¹
resultado MCD(B,A mod B)
si no
resultado A
/fsi/
/ffunción/
8.1.2
Traduccion en la HP 40G
Versión iterativa para dos números enteros.
Primero escribimos el sub-programa IN para introducir dos números A y B.
INPUT A
"A"
1
;
;;;
:
INPUT B
"B"
1
;
;;;
:
ERASE:
Se escribe el programa MCD:
RUN IN:
DISP 3
"MCD"
A,B
;
{
}
WHILE B
0 REPEAT
¹
A MOD B-
R:
>
142
:
Programas de Aritmetica