HP 39g-Grafenberechner - Handbuch (Seite 150)

Exakte Berechnungen und Mathematik mit HP40G
150 Arithmetische Programme
IF B
  7+(1
A MOD B -> R:
B -> A:
R -> B:
RUN PR:
END:
Das Programm PR wird ins Programm eingegliedert, das Eingaben und
Ausgaben durchführt:
PROMPT A:
PROMPT B:
RUN PR:
ERASE:
MSGBOX A:
Iterative Version für zwei komplexe Zahlen.
Wenn in den vorhergehenden Programmen die Funktion der symbolischen
Berechnung IREMAINDER anstatt von MOD verwendet wird, kann PGCD
(oder PR) als Parameter ganze Gauß Zahlen haben, unter der Voraussetzung,
daß die Namen der Variablen A, B, R durch die Namen Z1, Z2, Z3 ersetzt
werden und daß der Beendigungstest geändert wird.
Hier ist die iterative Version:
PROMPT Z1:
PROMPT Z2:
DISP 3;"PGCD "{Z1,Z2}:
WHILE ABS(Z2)
  5(3($7
XNUM(IREMAINDER(XQ(Z1),XQ(Z2)) ->Z3:
Z2 ->Z1:
Z3 ->Z2:
END:
DISP 4;"PGCD "Z1:
FREEZE:
Iterative Version für zwei Polynome.