主题：10转16谁会做?白送分!!!!!!!!!!
54小诚
[专家分：90] 发布于 2008-04-29 17:14:00
10转16谁会做?白送分!!!!!!![em3][em3][em3][em3][em3][em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20][em30][em29][em28][em27][em26][em25][em24][em23][em22][em21][em31][em32][em33][em34]
回复列表 （共14个回复）
沙发
lyz_96 [专家分：140] 发布于 2008-04-29 17:24:00
恩？？？？
你不说简单吗？？？？
怎么还问？？？
你不说在你写的１０转２的上面改1改就可以了吗????????????????????????
板凳
54小诚 [专家分：90] 发布于 2008-04-29 17:28:00
you不是疯子吧!闹子有猫并(看得懂吗)
[em24][em24][em22][em22]
3 楼
世界第一 [专家分：210] 发布于 2008-04-29 18:18:00
cls
input n
dim a(n)
while n>0
s=s+1
a(s)=n mod 16
n=n\16
wend
while a(s)=0:s=s-1:wend
for i=s to 1 step -1
if a(i)<10 then
print using"#";a(i);
else
print chr$(55+a(i));
end if
next i
4 楼
Mato完整版 [专家分：1270] 发布于 2008-04-29 21:51:00
先转2再转16也可以。
请问，谁会进制转换的通用程序（输入一个数，这个数可以是整数或小数，再输入它的进制N（2<=N<=36）、将其转换的进制M（2<=M<=36），小数位数精度X（0<=X<=9999，就是保留X位小数的意思））。
到我的小组里去交流。
5 楼
forwrj [专家分：60] 发布于 2008-05-08 19:45:00
先转换成二进制,然后二进制中的4位数对应16进制中的一位数
6 楼
FFKK [专家分：1610] 发布于 2009-07-10 19:49:00
cls
input n
dim a(n)
while n>0
s=s+1
a(s)=n mod 16
n=n\16
wend
while a(s)=0:s=s-1:wend
for i=s to 1 step -1
if a(i)<10 then
print using"#";a(i);
else
? using "###"; a(i)
end if
next i
end
7 楼
天天和和 [专家分：1420] 发布于 2009-07-11 17:09:00
CLS
INPUT n
DIM a(n)
WHILE n > 0
s = s + 1: a(s) = n MOD 16: n = n \ 16
WEND
WHILE a(s) = 0: s = s - 1: WEND
FOR i = s TO 1 STEP -1
IF a(i) < 10 THEN
PRINT USING "#"; a(i);
ELSE
PRINT CHR$(55 + a(i));
END IF
NEXT i
END
8 楼
phile [专家分：2310] 发布于 2009-07-13 17:52:00
看我的N进制转十进制
CLS
INPUT A$, M
L = LEN(A$)
I = 0
S$ = ""
DO
X$ = MID$(A$, L, 1)
IF X$ >= "0" AND X$ <= "9" THEN ’数字
A = VAL(X$) * M ^ I
ELSEIF X$ >= "A" AND X$ <= "Z" THEN ‘如是十六进制字符话
A = (ASC(X$) - 55) * M ^ I
ELSE
PRINT "DATA NO!": END ’数据有误
END IF
S = S + A
L = L - 1
I = I + 1
LOOP UNTIL L = 0
PRINT S
END
9 楼
梦幻小樱 [专家分：140] 发布于 2009-08-06 13:21:00
cls
input n
dim a(n)
while n>0
s=s+1
a(s)=n mod 16
n=n\16
wend
while a(s)=0:s=s-1:wend
for i=s to 1 step -1
if a(i)<10 then
print using"#";a(i);
else
print chr$(55+a(i));
end if
next
10 楼
phile [专家分：2310] 发布于 2009-08-06 18:30:00
一般十转十六用的是短除反序求余!!!
要知道这个定理就简单了!!
我来回复
您所在位置：