主题：绝对加分
网虫一号
[专家分：1230] 发布于 2007-08-14 09:47:00
输入一个字符串，内有数字和非数字字符。如A123X456Y7A，302ATB567BCC，打印字符串中所有连续（指不含非数字字符）的数字所组成的整数，并统计共有多少个整数。
回复列表 （共11个回复）
沙发
小小傻瓜 [专家分：150] 发布于 2007-08-14 15:04:00
CLS
INPUT x$: l = LEN(x$)
FOR i = 1 TO l
m$ = MID$(x$, i, 1)
IF m$ < "0" OR m$ > "9" THEN 10
y$ = y$ + m$
IF i < l THEN R$ = MID$(x$, i + 1, 1)
IF i < l AND (R$ < "0" OR R$ > "9") THEN PRINT y$: S = S + 1: y$ = ""
10 NEXT i
PRINT "S="; S
END
板凳
007bond [专家分：540] 发布于 2007-10-28 15:55:00
cls
input n$
for i=1 to len(n$)
x$=mid$(n$,i,1)
if x$>="0" and x$<="9" then
if m=0 then ?w:s=s+1:m=1:w=val(x$) else w=w*10+val(x$)
end if
?w
end
3 楼
QB小猪 [专家分：1200] 发布于 2007-10-29 18:30:00
007bond最近又来这转啦......................
4 楼
傲视人间 [专家分：60] 发布于 2007-11-25 11:43:00
CLS
INPUT N$
FOR I = 1 TO LEN(N$)
X$ = MID$(N$, I, 1)
IF X$ >= "0" AND X$ <= "9" THEN
IF M = 0 THEN
PRINT W: S = S + 1: M = 1: W = VAL(X$)
ELSE
W = W * 10 + VAL(X$)
END IF
END IF
NEXT I
PRINT W
END
5 楼
木偶之舞 [专家分：60] 发布于 2007-12-28 21:32:00
CLS
INPUT N$
FOR I=1 to LEN(N$)
X$=MID$(N$,I,1)
IF X$>="0" AND X$<="9" THEN
IF M=0 THEN PRINT W:S=S+1:M=1:W=VAL(X$) ELSE W=W*10+VAL(X$)
END IF
PRINT W
END
6 楼
神的思想 [专家分：80] 发布于 2008-02-04 18:36:00
CLS
INPUT N$
M = LEN(N$)
FOR I = 1 TO M + 1
A$ = MID$(N$, I, 1)
IF A$ >= "0" AND A$ <= "9" THEN
C$ = C$ + A$
ELSE
PRINT C$; " ";
IF C$ <> "" THEN K = K + 1
C$ = ""
END IF
NEXT I
PRINT "GONGYOU"; K; "GE"
END
7 楼
hqm1 [专家分：570] 发布于 2008-04-04 22:09:00
CLS
INPUT N$
FOR I = 1 TO LEN(N$)
X$ = MID$(N$, I, 1)
IF X$ >= "0" AND X$ <= "9" THEN
IF M = 0 THEN
PRINT W: S = S + 1: M = 1: W = VAL(X$)
ELSE
W = W * 10 + VAL(X$)
END IF
END IF
NEXT I
PRINT W
END
8 楼
世界第一 [专家分：210] 发布于 2008-04-23 13:03:00
cls
input a$
la=len(a$)
dim b(la+1),c$(la)
for i=1 to la
if mid(a$,i,1)<"0" or mid$(a$,i,1)>"9" then b(i)=1
next i
for i=1 to la
if b(i)=1 and(b(i-1)=0 or b(i+1)=0) then w=w+1
if b(i)=0 then c$(w)=c$(w)+mid$(a$,i,1)
next i
while c$(w)="":w=w-1:wend
for i=1 to w
print c$(w);
next i
print w
9 楼
QB小鼠 [专家分：0] 发布于 2008-05-06 13:38:00
cls
input n$
for i=1 to len(n$)
x$=mid$(n$,i,1)
if x$>="0" and x$<="9" then
if m=0 then ?w:s=s+1:m=1:w=val(x$) else w=w*10+val(x$)
end if
print w
end
10 楼
科比*布莱恩特 [专家分：40] 发布于 2008-05-10 08:59:00
cls
input x$
for i=1 to len(x$)
c$=mid$(x$,i,1)
if c$>="0" and c$<="9" then
if m=0 then print w:s=s+1:m=1:w=val(c$) else w=w*10+val(c$)
end if
print w
end
我来回复
您所在位置：