Question

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

Answer 1

DIM A(16)
T=0
DO
INPUT "X=";X
LOOP UNTIL X>=0 AND X<=32767 AND X=INT(X)
IF X=0 THEN PRINT 0
DO WHILE X<>0
P=X MOD 2
X=X\2
T=T+1
A(T)=P
LOOP
FOR I=T TO 1 STEP -1
PRINT USING "#";A(I);
NEXT I
PRINT
END
把以上程序输入qbasic，运行后输入一个0~32767的数，即可进行转换。