主题：[讨论]数制——十进制转换二进制
huangyb731
[专家分：630] 发布于 2010-10-28 19:15:00
把十进制数转换成二进制数（除二取余法）
输入：
123
输出：
1111011
[color=FF0000]ff0000[/color]
[em1][em1]
[fly][em1][em1]救救我哦~~~！！[/fly]
回复列表 （共11个回复）
沙发
verysmartboy [专家分：1260] 发布于 2010-10-29 20:40:00
CLS
INPUT N
DIM A(N)
FOR I=1 TO 7
R=N MOD 2
A(N)=R
NEXT I
FOR I=7 TO 1 STEP -1
PRINT A(I);
NEXT I
END
板凳
huangyb731 [专家分：630] 发布于 2010-10-29 21:57:00
楼上的，试了程序没？
有问题！
输入：
123
输出：0 0 0 0 0 0 0
3 楼
幽灵密码 [专家分：3510] 发布于 2010-10-30 17:10:00
CLS
INPUT N
DIM A$(10000)
DO
I=I+1
A$(I)=STR$(N MOD 2)
N=N\2
LOOP UNTIL N=0
FOR J=I TO 1
PRINT A$(I);
NEXT J
END
4 楼
LZJQB [专家分：140] 发布于 2010-10-31 14:53:00
CLS
1 INPUT "N="; N
IF N <> FIX(N) THEN 1
Y$ = ""
2 S = N MOD 2: N = N \ 2: Y$ = STR$(S) + Y$
IF N <> 0 THEN 2
PRINT Y$
END
给我30分
5 楼
huangyb731 [专家分：630] 发布于 2010-10-31 17:39:00
[fly]O(∩_∩)O谢谢林子建！！！ 我是黄豆豆[/fly]
推荐个游戏——斗笠武士1
6 楼
LZJQB [专家分：140] 发布于 2010-11-06 13:21:00
[fly]能不能再给30分？？？[/fly]
7 楼
LZJQB [专家分：140] 发布于 2010-11-06 13:22:00
[em32][em32][em32][em32][em2][em2][em9][em9]
8 楼
幽灵密码 [专家分：3510] 发布于 2010-11-08 21:13:00
。。。。最多就加50
9 楼
huangyb731 [专家分：630] 发布于 2010-11-09 19:58:00
呃
10 楼
独手编程 [专家分：360] 发布于 2010-11-10 17:15:00
cls
input n
dim a (100)
s=1
do
if n mod 2 = 1 then
a(s)=1
n=(n-1)/2
else
n=n/2
a(s)=1
end if
s=s+1
loop until n=0
for i = s to 1 step -1
print a(i);
next i
end
我来回复
您所在位置：