Question

用QBASIC编写 二进制的数转化成十进制的数的程序,哪位朋友帮个忙?谢谢了

如题

Answer 1

d2="110011000100111"
n=len(d2)
for i=0 to n-1
d10=d10+val(mid(d2,n-i,1))*2^i
next
print d10

Answer 2

CLS
INPUT N$
FOR I = 1 TO LEN(N$)
K = VAL(MID$(N$, I, 1))
N = N + K * 2 ^ (LEN(N$) - I)
NEXT I
PRINT N
END