01-16-2021, 11:10 AM
HP-11C program to give the decimal expansion of a fraction to
as many decimal places as desired.
This program is the extended version from the one for the
HP-12C found at this post: https://www.hpmuseum.org/forum/thread-16160.html
Program will produce decimal expansion 8 digits at a time with each press of [R/S]
give user another 8 digits.
When program finish running read each digit from right to left on each set of 8 digits.
------------------------------------------------------------
Procedure: [FIX] 0
Numerator [ENTER] Denominator [f] [A] display 1 digit at a time until reach 8 digit then stop.
Read decimal expansion from right to left if dispaly shown [87654321] reverse to 12345678
------------------------------------------------------------
Example:
I like to know decimal expansion digits to 24 decimal places ( 8 digits 3 times )
For 35/31
[f] [FIX] 0
35 [ENTER] 31 [f] [A] display 22,309,211 write down in reverse as 11290322
[R/S] dispaly 61,546,085 reverse as 58064516
[R/S] display 52,230,921 reverse as 12903225
answer: 11290322 58064516 12903225
Program: FIX 0
Gamo
as many decimal places as desired.
This program is the extended version from the one for the
HP-12C found at this post: https://www.hpmuseum.org/forum/thread-16160.html
Program will produce decimal expansion 8 digits at a time with each press of [R/S]
give user another 8 digits.
When program finish running read each digit from right to left on each set of 8 digits.
------------------------------------------------------------
Procedure: [FIX] 0
Numerator [ENTER] Denominator [f] [A] display 1 digit at a time until reach 8 digit then stop.
Read decimal expansion from right to left if dispaly shown [87654321] reverse to 12345678
------------------------------------------------------------
Example:
I like to know decimal expansion digits to 24 decimal places ( 8 digits 3 times )
For 35/31
[f] [FIX] 0
35 [ENTER] 31 [f] [A] display 22,309,211 write down in reverse as 11290322
[R/S] dispaly 61,546,085 reverse as 58064516
[R/S] display 52,230,921 reverse as 12903225
answer: 11290322 58064516 12903225
Program: FIX 0
Code:
[LBL] [A]
[STO] 2 [R↓] [STO] 1
[LBL] 0
.007 [STO] [I] 0 [STO] 3
[LBL] 1
[RCL] 1 [RCL] 2 [÷] [INT] [STO] 0
[RCL] 1 [RCL] 0 [RCL] 2 [x] [-] [EEX] 1 [x] [STO] 1
[RCL] 0 [RCL] [I] [INT] [10^X] [x] [STO] [+] 3
[RCL] 3 [PSE] [ISG] [GTO] 1 [R/S] [GTO] 0
Gamo