主题：把十六进制数转换成十进制数！急！！
xgf0
[专家分：60] 发布于 2007-02-17 16:46:00
把十六进制数转换成十进制数！
回复列表 （共22个回复）
沙发
强强 [专家分：4740] 发布于 2007-02-17 20:21:00
CLS
INPUT "n=", n
DIM i AS LONG
i = 1
DO UNTIL i = 0
i = INT(n / 10)
j = n MOD 10
p$ = p$ + STR$(j)
n = i
LOOP
FOR a = 0 TO LEN(p$) - 1
PRINT MID$(p$, LEN(p$) - a, 1);
NEXT a
END
输入的时候要以十六进制的格式输入,举个例子&hff=255。别忘了加分。
板凳
强强 [专家分：4740] 发布于 2007-02-19 18:07:00
老弟你太不够意思了，我帮你做题你给我加20分，凑个250是不是，老弟你不对呀！
3 楼
moz [专家分：37620] 发布于 2007-02-20 02:35:00
强的程序的确是强,只是有点......有时间旅游是好,但是需要花太多时间与精力还有金钱成本得不偿失就有点浪费了.
你试试把你这个程序改成这个样子看看:
input "n=",n
print n
4 楼
强强 [专家分：4740] 发布于 2007-02-20 14:42:00
哈哈哈哈，MOZ真是一句话点醒梦中人，厉害，我就说你水平高吗，可惜不是我的帖子，要不肯定给你加分
5 楼
xgf0 [专家分：60] 发布于 2007-02-20 19:43:00
不好意思，我没有你说的意思。我只是随便点了一下，谁知道点到20分了。在说我也不知道你当时正好了230呀，呵呵。真是不好意思。在给你加的是我对你的补偿！
MOZ 我好吧！
6 楼
强强 [专家分：4740] 发布于 2007-02-20 20:32:00
开个玩笑，我根本也没在意，不过250这个数确实有些不好看，哈哈
7 楼
happybasic [专家分：80] 发布于 2007-03-03 16:19:00
val("&H"+ hexStr$)
8 楼
鬼的魂魄 [专家分：20] 发布于 2007-03-23 12:29:00
真是揣
CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
X = X + A * 16 ^ (I - 1)
NEXT I
PRINT X
赶快给我加分
9 楼
chyx [专家分：450] 发布于 2007-03-23 18:06:00
CLS
INPUT N$
FOR I = 1 TO LEN(N$)
A$ = MID$(N$, LEN(N$) + 1 - I, 1)
IF ASC(A$) > 57 THEN A = ASC(A$) - 55 ELSE A = VAL(A$)
S = S + 16 ^ (I - 1) * A
NEXT I
PRINT S
END
10 楼
GGbond [专家分：60] 发布于 2007-03-23 18:15:00
程序清单(带小数):
cls
input n$
a=instr(n$,".")
if a=0 then m$="" else m$=mid$(n$,a+1)
n$=left$(n$,a-1)
for i=1 to len(n$)
a$=mid$(n$,len(n$)+1-i,1)
if asc(a$)>57 then c=asc(a$)-55 else c=val(a$)
x=x+c*16^(i-1)
next i
for i=1 to len(m$)
a$=mid$(m$,i,1)
if asc(a$)>57 then c=asc(a$)-55 else c=val(a$)
x=x+c*(1/(16^i))
next i
print x
end
(使用Qbacic 编程)
快加分我只有十分钟
我来回复
您所在位置：