HP 40G Manual Del Usuario página 151

PROGRAM BEZOUR
IF B 0 THEN
PUSH (FLOOR(A/B)):
B->A:
T->B:
RUN BESOUR:
U-V*POP->T:
V->U:
T->V:
ELSE
1->U:
0->V:
A->D:
END:
PUSH (FLOOR(A/B)) introduce los diferentes valores de FLOOR(A/B) en una
pila y POP los recupera.
T es una variable auxiliar.
BEZOUR toma como entrada los valores de las variables globales Ay B y
rellena las variables globales U y V de manera que:
A · U + B · V = PGCD(A, B).
A continuación se escribe el programa final BEZOURT,
que permite la entrada de A y B y la salida de {U, V, D}.
PROGRAM BEZOUR
PROMPT A:
PROMPT B:
RUN BEZOUR:
ERASE:
MSGBOX {U,V,D}:
Programas de Aritmetica
Calculo Simbólico y Matemático con la HP 40G
151