HP Prime and TI-84 Plus CE: Convert Integers: Decimal to Any Base
Below are two
programs that allow conversion of integers from decimal to any designated
base. Integers used in base other than
10 are presented in list format. Each
digit is separate and listed in order of descending place value.
For example: To
input 1282_9
(base 9), enter {1, 2, 8, 2} and designate 9 as the base.
Digits are
shown in numerical form and not in alphabetic.
Hence, if you were working for hexadecimal, enter 10 for A, 11 for B,
and so on.
HP Prime Program DEC2BASE
EXPORT DEC2BASE(N,B)
BEGIN
// decimal, base
// 2017-01-31 EWS
LOCAL S,L1,Q,D,X;
S:=IP(LN(N)/LN(B))+1;
L1:=MAKELIST(0,X,1,S);
D:=N;
FOR K FROM 1 TO S DO
Q:=IP(D/B^(S-K));
L1(K):=Q;
D:=D-Q*B^(S-K);
END;
RETURN L1;
END;
See the TI-84 Plus CE section for
examples.
HP Prime Program BASE2DEC
EXPORT
BASE2DEC(L1,B)
BEGIN
// list of digits, base
// 2017-01-31 EWS
LOCAL S,N,K,Q;
S:=SIZE(L1);
N:=0;
FOR K FROM 1 TO S DO
N:=N+L1(K)*B^(S-K);
END;
RETURN N;
END;
See the TI-84 Plus CE section for
examples.
TI-84 Plus CE Program DEC2BASE
(This should be
work with the classic TI-84 Plus)
Input "DEC
:",N
Input "TO BASE:
",B
int(ln(N)/ln(B))+1→S
S→dim(L1)
N→D
For(K,1,S)
int(D/B^(S-K))→Q
Q→ L1 (K)
D-Q*B^(S-K)→D
End
Disp ">BASE
"+eval(B)
Pause L1
** For classic
TI-84 or any operating system not working with OS 5.2 or later, you can leave
out the “+eval(B)” for the second to the last line.
Examples:
Convert 1254 to
base 6.
Result: {5, 4, 5, 0}
(5450_6).
(5 * 6^3 + 4 * 6^2 + 5*6)
Convert 17291
to base 13.
Result: {7, 11, 4, 1} (7B41_13)
(7 * 13^3 + 11 * 13^2 + 4 * 13 + 1)
(Here I use A =
10, B = 11, C = 12, and so on, like calculator notation)
TI-84 Plus CE Program BASE2DEC
(This should be
work with the classic TI-84 Plus)
List: {q_n, q_n-1, … , q_1, q_0} where
q_n * b^(n)
q_n-1 * b^(n-1)
…
q_1 * b
q_0 (constant)
Treat this like
if you were entering a polynomial of coefficients of descending order from
power n to 0.
Disp "LIST OF
DIGITS"
Input L1
Input "BASE:
",B
dim(L1)→S
0→N
For(K,1,S)
N+ L1 (K)*B^(S-K)→N
End
Disp
">DEC"
Pause N
Examples:
Convert 4281_9 to decimal (4 * 8^3 + 2 * 9^2 + 8 * 9 + 1)
Input: {4, 8, 2, 1}, Base: 9
Result: 3583
Convert C107_16
to decimal (12 * 16^3 + 1 * 16^2 + 7)
Input: {12, 1, 0, 7}, Base: 16
Result: 49415
I hope you find
this helpful.
Coming up, I am
reading about the golden ratio, I will have another retro calculator review
(Texas Instruments BA II from 1984) coming shortly, and I may have a guest post
as well. (10 posts away from post #700!)
Thank you
everyone. Welcome to February!
Eddie
This blog is
property of Edward Shore, 2017
