[讨论]数的拆分 — 编程爱好者社区

沙发

梦幻小樱 [专家分：140] 发布于 2009-08-07 13:51:00

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

板凳

梦幻小樱 [专家分：140] 发布于 2009-08-07 13:54:00

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

3 楼

梦幻小樱 [专家分：140] 发布于 2009-08-07 14:01:00

DIM A(100)
L=0
DO
INPUT  "一位一位输入，输入负数结束”；A
IF A<0 THNE EXIT DO
IF A>0 AND A<=9 AND A =INT(A) THEN
  L=L+1
  A(L)=A
ELSE
  ?"ERROR!":END
END IF
LOOP
FOR I=1 TO L
?A(I);
NEXT
END

4 楼

梦幻小樱 [专家分：140] 发布于 2009-08-07 14:01:00

这是3种方法！

5 楼

Saitor@love.com [专家分：30] 发布于 2009-08-07 14:33:00

thank you

6 楼

梦幻小樱 [专家分：140] 发布于 2009-08-10 16:46:00

请给我分！

7 楼

phile [专家分：2310] 发布于 2009-08-10 17:16:00

唉！

8 楼

Saitor@love.com [专家分：30] 发布于 2009-08-11 19:28:00

梦幻小樱，我给了。

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]数的拆分

回复列表（共8个回复）

我来回复

程序员工具箱 new

代码片段