clear
input "请输入一个数:" to x
  c=x
  s=0
  f=.t.
do while x!=0
   a=x%10
   s=s*10+a
   x=int (x/10)
   if s!=c
   f=.f.
endif
enddo

   if f=.t.
   ?"shihuiwen
   else
   ?"bushi"
   endif
   cancel



判断一个数是否问回文数这样编程错在哪里了呢？？？

判断一个数是否问回文数这样编程错在哪里了呢？？？

没看明白

clear
input "请输入一个数:" to x
  c=x
  s=0
  f=.t.
do while x!=0
   a=x%10
   s=s*10+a
   x=int (x/10)
   if s!=c
   f=.f.
endif
enddo

   if f=.t.
   ?"shihuiwen
   else
   ?"bushi"
   endif
   cancel





请修改为

 clear
input "请输入一个数:" to x
  c=x
  s=0
  f=.t.
do while x!=0
   a=x%10
   s=s*10+a
   x=int (x/10)
   if s!=c
   f=.f.
   ELSE
   f=.t.
   endif

enddo

   if f=.t.
   ?"shihuiwen"
   else
   ?"bushi"
   endif
   cancel

呵呵谢了

clear
input "请输入一个数:" to x
if type('x')='N' and int(x)=x
  c1=alltrim(str(x))
  c2=''
  for i=1 to len(c1)
    c2=substr(c1,i,1)+c2
  endfor
  f=c1=c2
else
  f=.f.
endif
if f=.t.
   ?"是回文数"
else
   ?"不是回文数"
endif
return