Programm zum Kürzen eines Bruchs mit separat aufrufbarem Unterprogramm zur Berechnung des grössten gemeinsamen Teilers.

Bedienung:
Zähler eintippen, ENTER, Nenner eintippen, XEQ "BK"
gekürzter Nenner wird angezeigt, X<>Y, gekürzter Zähler wird angezeigt

Nur ggT berechnen:
erste Zahl eintippen, ENTER, zweite Zahl eintippen, XEQ "GGT"
ggT wird angezeigt

Programm

01 § LBL "BK"
02   STO 02
03   X<>Y
04   STO 01
05   XEQ "GGT"
06   RCL 01
07   X<>Y
08   /
09   RCL 02
10   LASTX
11   /
12   GTO 01
13 § LBL "GGT"
14   MOD
15   LASTX
16   X<>Y
17   X≠0?
18   GTO "GGT"
19   RDN
20 § LBL 01
.END.