08 - Simple fraction

Post Reply
Peet
Posts: 94
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

08 - Simple fraction

Post by Peet »

usage:
numerator/denominator e.g. 1 ENTER 4 => 1/4

Arithmetic-Keys: A=- B=+ C=* D=/

5 ENTER 4 ENTER 1 ENTER 4 <B>: 3/2
1 ENTER 2 ENTER 1 ENTER 2 <C>: 1/4

Code: Select all

LBL "/"
SF 27
CF 29
STOP
LBL D
X<>Y
LBL C
ST* Z
RDN
RCL Z
*
GTO 01
LBL A
CHS
LBL B
ST* T
X<> Z
ST* Z
*
R^
+
LBL 01
FIX 0
STO 02
X<>Y
STO 01
LBL 02
STO Z
MOD
X#0? 
GTO 02
LASTX
ST/ 02
ST/ 01
LBL 03
CLA
RCL 02
LBL 04
ARCL X
"|-/"
RCL 02
RCL 01
ARCL X
PROMPT
CLA
/
INT
X=0?
GTO 03
ARCL X
LASTX
FRC
X=0?
GTO 03
RCL 01
*
ABS
"|-"
GTO 04
END
Attachments
08_Bruchrechnen.raw
(92 Bytes) Downloaded 12 times
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(+), HP35S, DM41X, DM42
Post Reply