主题:数的拆分
Saitor@love.com
[专家分:30] 发布于 2009-08-07 13:14:00
数的拆分
键盘输入N,把N各个位上的数拆下来。
如:数123
输出 1 2 3
回复列表 (共25个回复)
11 楼
1054122 [专家分:750] 发布于 2009-08-12 13:04:00
[quote]INPUT A
L=0
DO WHILE A<>0
L=L+1
A(L)=A MOD 10
A=A\10
LOOP
FOR I=L TO 1 STEP -1
?A(I);
NEXT
END
[/quote]
程序有缺陷
输入99999999
输出1 0 0 0 0 0 0 0 0
12 楼
1054122 [专家分:750] 发布于 2009-08-12 13:04:00
给分!!
13 楼
天天和和 [专家分:1420] 发布于 2009-08-13 08:48:00
这个题目不明确~无法做出准确的解答~
楼主请将题目补充完整~
14 楼
1054122 [专家分:750] 发布于 2009-08-13 14:47:00
[quote]yes[/quote]
no,都有问题
15 楼
天天和和 [专家分:1420] 发布于 2009-08-14 22:55:00
CLS
INPUT A$
FOR I=1 TO LAN(A$)
PRINT MID$(A$,I,1);
NEXT I
END
16 楼
phile [专家分:2310] 发布于 2009-08-17 14:05:00
[quote][quote]INPUT N
L=LEN(N$)
DIM A(L)
FOR I=1 TO L
S$=MID$(N$,I,1)
IF X$>="0" AND X$<="9" THEN
A(I)=VAL(X$)
ELSE
?"ERROR!":END
END IF
NEXT
FOR I=1 TO L
?A(I);
NEXT
END
[/quote]
这个根本不对
运行后没有显示
[/quote]
我知道吧s$换x$
17 楼
梦幻小樱 [专家分:140] 发布于 2009-08-18 12:46:00
我只是输入错误,不小心的啦!
18 楼
梦幻小樱 [专家分:140] 发布于 2009-08-18 12:47:00
不管怎样,应该给分吧?
19 楼
天天和和 [专家分:1420] 发布于 2009-08-23 19:10:00
不小心?
打完后也不检查检查
20 楼
phile [专家分:2310] 发布于 2009-08-24 12:18:00
说得有理
我来回复