编程高手请进 用QBASIC编写 十进制的数转化成二进制的数的程序,哪位朋友帮个忙?谢谢了
答案:1 悬赏:60 手机版
解决时间 2021-11-22 03:28
- 提问者网友：我是女神我骄傲
- 2021-11-21 13:20
编程高手请进 用QBASIC编写 十进制的数转化成二进制的数的程序,哪位朋友帮个忙?谢谢了
最佳答案
- 五星知识达人网友：迟山
- 2021-11-21 14:29
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的数，即可进行转换。
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
END
把以上程序输入qbasic，运行后输入一个0~32767的数，即可进行转换。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯