(12C) Decimal Expansion of a Fraction

[Gamo]

HP-12C program to give the decimal expansion of a fraction to
as many decimal places as desired.

-----------------------------------------------------------------

Procedure:

Enter the numerator [R/S] and the denominator, both whole number [R/S] and keep

pressing [R/S] giving next digit in the decimal expansion. Record these on paper if you wish.

Note that the decimal point is not diplayed by the calculator.

Press [PRGM] for each new problem.
-------------------------------------------------------------------

Code:


01 STO 1
02 R/S
03 STO 2
04 RCL 1
05 RCL 2
06  ÷
07 INTG
08 STO 0
09 RCL 1
10 RCL 0
11 RCL 2
12  x
13  -
14 EEX
15  1
16  x
17 STO 1
18 RCL 0
19 R/S
20 GTO 04

Example: FIX 0

355 / 113 = x.xxxxxxx...........

[PGRM] 355 [R/S] 113 [R/S]....... 31415929203539823008849557522123893..........

Remark:

This program can be modify further to show 10 decimal expansion digits at a time
instead of one at a time but I havn't do this yet. If someone got an idea or ways
to do it you're welcome. Thank You

Gamo