主题：谁帮我做做这道题！！在线等！～
xgf0
[专家分：60] 发布于 2007-02-16 19:31:00
[b]编程 把十进制数N[1,32767]转换成二进制数！[/b]
回复列表 （共5个回复）
沙发
强强 [专家分：4740] 发布于 2007-02-17 14:17:00
CLS
INPUT "n=", n
DIM i AS LONG
i = 1
DO UNTIL i = 0
i = INT(n / 2)
j = n MOD 2
p$ = p$ + STR$(j)
n = i
LOOP
FOR a = 0 TO LEN(p$) - 1
PRINT MID$(p$, LEN(p$) - a, 1);
NEXT a
END
写的不好，你参考一下就行，但也别忘了加分啊，30分
板凳
xgf0 [专家分：60] 发布于 2007-02-17 16:45:00
谢谢了！
3 楼
强强 [专家分：4740] 发布于 2007-02-17 16:49:00
不用客气，以后有事说话。
4 楼
Lovely哆啦 [专家分：1360] 发布于 2007-03-30 21:44:00
CLS
INPUT N
DO
Y = N MOD 2
N = N \ 2
X$ = LTRIM$(STR$(Y)) + X$
LOOP UNTIL N = 0
PRINT X$
END
5 楼
爱丽斯LING [专家分：560] 发布于 2007-04-01 16:55:00
CLS
INPUT "n=", n
DIM i AS LONG
i = 1
DO UNTIL i = 0
i = INT(n / 2)
j = n MOD 2
p$ = p$ + STR$(j)
n = i
LOOP
FOR a = 0 TO LEN(p$) - 1
PRINT MID$(p$, LEN(p$) - a, 1);
NEXT a
END
我来回复
您所在位置：