HP 39g-Grafenberechner - Handbuch (Seite 149)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 149
R -
>B:
END:
DISP 4
;"NSD " A:
FREEZE:
Rekursive Version
Mit HP40G kann man keine rekursive (unendlich wiederholter) Programme
schreiben … aber es ist jedoch möglich das Programm NSDR zu schreiben:
DISP 3
;"NSD "{A,B}:
FREEZE:
IF B
¹ 0 THEN
A MOD B -
>R:
B -
>A:
R -
>B:
NSDR:
ELSE
DISP 3
;"NSD "A:
FREEZE:
END:
Man speichert zuerst die Werte in A und B.
Das Programm NSDR zeigt NSD an, das gerade rechnet.
Der rekursive Abruf NSDR setzt das Programm NSDR zurück, dies führt man
durch Drücken von RUN durch.
Das Programm NSDR zeigt so die mittlere ausgerechnete NSD:
Das Programm NSDR zeigt so das mittlere berechnete NSD an.
NSDR im vorhergehenden Programm kann mit Hilfe von RUN NSDR ersetzt
werden, damit es nicht notwendig ist, die Taste RUN der Liste zu betätigen,
und weiter ist es möglich, die mittleren Aufschriften zu entfernen, damit dieses
Programm im Programm verwendet werden kann, das Eingaben und Ausgaben
durchführt:
das rekursive Programm NSDR wird zum rekursiven Programm PR: