(11C) Arithmetic with Fractions
09-15-2018, 07:02 AM (This post was last modified: 09-15-2018 11:11 AM by Gamo.)
Post: #1
 Gamo Senior Member Posts: 705 Joined: Dec 2016
(11C) Arithmetic with Fractions
Program to add, subtract, multiply, divide, simplify to lowest term and
convert to mixed fraction.

In the form of

a/b [+ - x ÷] c/d = e/f

If f ˂ e
then get the result for Mixed Fraction of g+ h/f

Procedure:

a [ENTER] b [ENTER] c [ENTER] d [A]

[A] Store Fractions
[C] For Multiply
[D] For Divide
[E] For Mixed Fraction

Each [B] [C] [D] give answer display of e [X<>Y] f as fraction of e/f
If f ˂ e press [E] give answer display of g.000h [X<>Y] f of g+ h/f

-----------------------------------------------------------------------------------------
Example:

111/33 + 7/17

111 [ENTER] 33 [ENTER] 7 [ENTER] 17 [A] display 0.0000

[B] display 706 [X<>Y] 187

[E] display 3.0145 [X<>Y] 187

Answer of Mixed Fraction is 3+ 145/187
-----------------------------------------------------------------------------------------
Example:

1001/98 x 123/321

1001 [ENTER] 98 [ENTER] 123 [ENTER] 321 [A] display 0.0000

[C] display 5863 [X<>Y] 1498

[E] display 3.1369 [X<>Y] 1498

Answer of Mixed Fraction is 3+ 1369/1498
-----------------------------------------------------------------------------------------

Program: [Total of 135 program steps]
Code:
 LBL A  // For Fraction input STO 4 Rv STO 3 Rv STO 2 Rv STO 1 CLx RTN ----------------------------------------------------------------------------------------- LBL B   // For Add or Subtract Fractions RCL 2 RCL 4 X≤Y X<>Y X<>Y STO 0 X<>Y ENTER *LBL 1 ENTER ENTER RCL 0 ÷ FRAC X=0 GTO 2 Rv + GTO 1 *LBL 2 + STO 5 RCL 2 ÷ RCL 1 x RCL 5 RCL 4 ÷ RCL 3 x + STO 6 RCL 5 *LBL 3 - LSTx X<>Y ABS X≠Y GTO 3 STO 7 1 X<>Y X>Y   GTO 4 RCL 5 RCL 6 RTN *LBL 4 RCL 5 RCL 7 ÷ RCL 6 RCL 7 ÷ RTN  <--You can stop here and continue to LBL E if need only + and - Fraction ----------------------------------------------------------------------------------------- LBL C  // For Multiply Fractions RCL 1 RCL 3 x STO 5 RCL 2 RCL 4 x STO 6 RCL 5 GTO 5 ----------------------------------------------------------------------------------------- LBL D  // For Divide Fractions RCL 1 RCL 4 x STO 5 RCL 2 RCL 3 x STO 6 RCL 5 GTO 5 ----------------------------------------------------------------------------------------- LBL 5 - LSTx X<>Y ABS X≠Y GTO 5 STO 7 1 X<>Y X>Y GTO 6 RCL 6 RCL 5 RTN *LBL 6 RCL 6 RCL 7 ÷ RCL 5 RCL 7 ÷ RTN ----------------------------------------------------------------------------------------- LBL E   // For Mixed Fraction STO 8 X<>Y X<>Y ÷ LSTx X<>Y ENTER FRAC X<>Y INT Rv x EEX 4 ÷ R^ + FIX 4 RCL 8 X<>Y RTN -----------------------------------------------------------------------------------------