| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 682 人关注过本帖
标题:求助我是初学者:高手进
只看楼主 加入收藏
c530837027
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2011-12-8
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:4 
求助我是初学者:高手进
  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



判断一个数是否问回文数这样编程错在哪里了呢???
搜索更多相关主题的帖子: 编程 cancel 
2011-12-10 11:23
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
判断一个数是否问回文数这样编程错在哪里了呢???

没看明白
2011-12-10 11:53
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:10 
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






2011-12-10 12:28
c530837027
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2011-12-8
收藏
得分:0 
呵呵谢了
2011-12-10 21:24
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:10 
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

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2011-12-11 13:48
快速回复:求助我是初学者:高手进
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016649 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved