回文数怎么编啊,急急急,繁请高手指教一二(页 1) - VFP论坛

shitangchenzhis 发表于 2008-6-4 10:56

回文数怎么编啊,急急急,繁请高手指教一二

输入正整数,判断是否是回文数,要求用for循环,循环变量用i,如果是回文数,结果为.t.,不是结果为.f.,判断结果保存在变量s中

Tiger5392 发表于 2008-6-4 11:51

Input '请输入一个正整数' To n
If Type('n')='N' And n>0 And Int(n)=n
  c=Transform(n)
  s=.T.
  For i=1 To Len(c)
If Substr(c,i,1)#Substr(c,Len(c)-i+1,1)
   s=.F.
   Exit
EndIf
  EndFor
  ?s
Else
  ?'输入数据错误'
EndIf

页: [1]