主题：请教各位高人
小小傻瓜
[专家分：150] 发布于 2007-07-24 14:36:00
任意输入一个字符串，判断是不是回文字符串。例如：ABCBA,WEREW就是回文字符串
用字符串的方法编，加30分
用过程编，加10分
回复列表 （共7个回复）
沙发
Matodied [专家分：7560] 发布于 2007-07-24 19:19:00
CLS
INPUT s$:l=LEN(s$)
FOR i=1 TO INT(l/2)
IF MID$(s$,i,1)<>MID$(s$,l+1-i,1) THEN PRINT "No":END
NEXT i
PRINT "Yes":END
照你这么说应该加30分的。
（楼下抄我的，就一个变量不一样）
板凳
wzc1996 [专家分：1680] 发布于 2007-07-24 19:31:00
CLS
INPUT N$:l=LEN(N$)
FOR i=1 TO INT(l/2)
IF MID$(N$,i,1)<>MID$(N$,l+1-i,1) THEN PRINT "No":END
NEXT i
PRINT "Yes":END
3 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-26 09:11:00
cls
input a$
for i=1 to len(a$)\2
if mid$(a$,i,1)<>mid$(a$,len(a$)+1-i,1) then print "no":end
next i
print"yes"
end
4 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-26 09:13:00
哎,又是一个言而无信的人,说了加分但现在又不加分了!!
5 楼
小小傻瓜 [专家分：150] 发布于 2007-07-27 15:00:00
谁说我言而无信？我前几天不在，今天来加分。
6 楼
小小傻瓜 [专家分：150] 发布于 2007-07-27 15:02:00
二楼由于你抄袭，加10分
7 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-28 18:13:00
SORRY!
我来回复
您所在位置：