主题：问一个关于判断几位数，并逆序打印出来的问题
幼稚
[专家分：0] 发布于 2006-05-20 11:31:00
利用随即函数产生一整数，判断它是几位数，并将它按逆序排列打印出来
x=INT (RND*1000)
__________
N=N+1
D=X\10^N
LOOP UNTIL_________
PRINT "该书的位数是:"_________
FOR I= 1 to n
W=___________
PRINT W
____________
NEXT I
END
回复列表 （共8个回复）
沙发
幼稚 [专家分：0] 发布于 2006-05-20 11:42:00
第一个空，是不是因该添DO
然后中间那个X\10^N我看不懂，
第三个空不清楚它的条件
第四个因该就是N了
后面的意思不明白，怎么样才能算是逆序打印
板凳
LSQ [专家分：220] 发布于 2006-05-20 17:50:00
x=INT (RND*1000)
___DO___
N=N+1
D=X\10^N
LOOP UNTIL___N=LEN(LTRIM$(X))___
PRINT "该数的位数是:"___N___
FOR I= 1 to n
W=___MID$(LTRIM$(STR$(X)),N+1-I,1)___
PRINT W
___W=0___
NEXT I
END
3 楼
幼稚 [专家分：0] 发布于 2006-05-20 23:05:00
恩
MID$(LTRIM$(STR$(X)),
虽然这条我们还没教，还是有点看不懂，我会尽力研究的
不过，谢谢了
4 楼
chenhonghong [专家分：70] 发布于 2006-05-28 16:00:00
l=len(ltrim$(str$(a)))
while a<>0
b=a mod 10
s=s*10+b
a=a\10
wend
l就是位数啦
不过随机产生一个数没有范围
这样可不太好办
我不会啊!!!!!!!!
5 楼
wcwp [专家分：0] 发布于 2006-06-04 10:18:00
为什么都要用字符串来做呢？
x=INT (RND*1000)
DO
N=N+1
D=X\10^N
LOOP UNTIL X=0
PRINT "该数的位数是:"N
FOR I= 1 to n
W=X MOD 10
PRINT W
X=X\10
NEXT I
END
6 楼
JRX [专家分：180] 发布于 2006-06-09 21:42:00
x=INT (RND*1000)
DO
N=N+1
D=X\10^N
LOOP UNTIL_D=0
PRINT "该书的位数是:";N
FOR I= 1 to n
W=X MOD 10
PRINT W
X=X\10
NEXT I
END
7 楼
老大徒伤悲 [专家分：29120] 发布于 2006-06-10 20:41:00
作为一个题目，可以这样出。
但谁要真这样设计程序，就傻瓜了。
这个问题的前一段，产生随机数就那样那个。会后面应该转换为字符串，去掉空白，位数就是字符串的长度，然后就逆序输出字符串。
根本不用那么多的计算。
8 楼
qb爱好人 [专家分：50] 发布于 2006-06-23 20:49:00
x=INT (RND*1000)
____DO______
N=N+1
D=X\10^N
LOOP UNTIL__D=0_______
PRINT "该书的位数是:"____N_____
FOR I= 1 to n
W=____MID$(STR$(X),N+2-I,1)_______
PRINT W
____XXX________'没用的
NEXT I
END
我来回复
您所在位置：