输入一个多位十六进制数,显示等值的十进制。
输入字符,需要减去 37H 或 30H,变换为十六进制数字。再组成一个多位数。
显示之前,则需要相反的变化。
本程序具有对输入数据进行合法性判断的功能。
输入非十六进制数的符号时,本程序将不做反应。
QBASIC:
CLS
INPUT N$
FOR I = 1 TO LEN(N$)
K$ = MID$(N$, I, 1)
IF ASC(K$) > 97 AND ASC(K$) < 123 THEN PRINT "ERROR!": END
IF ASC(K$) > 64 THEN K = ASC(K$) - 55 ELSE K = ASC(K$) - 48
N = N + K * 16 ^ (LEN(N$) - I)
NEXT I
PRINT N
END
混点分,好提问~~!
一般是减30H