| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 408 人关注过本帖
标题:请教10000到99999的对称数代码
只看楼主 加入收藏
乔子衎
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-17
结帖率:0
  已结贴   问题点数:20  回复次数:5   
请教10000到99999的对称数代码
请教10000到99999的对称数程序代码,新人求助
2018-04-17 14:23
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:83
帖 子:2571
专家分:6299
注 册:2015-3-25
  得分:7 
CREATE CURSOR dcheng(对称 N(6))

FOR j=10000 TO 99999
    IF Symmetry(j)=.t.
       INSERT INTO dcheng(对称) VALUES(j)
    ENDIF
ENDFOR
BROWSE

*!* 如果对称返回 .T.
FUNCTION Symmetry(eExpression)
 LOCAL nLen,cStr,i
 eExpression = TRANSFORM(eExpression)
 nLen = LEN(eExpression)
 cStr = ""
 FOR i =1 TO nLen
         cStr = cStr + SUBSTR(eExpression,nLen - i + 1,1)      
 ENDFOR
 RETURN IIF(cStr = eExpression,.t.,.f.)
ENDFUNC
2018-04-17 17:14
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:170
帖 子:7359
专家分:17315
注 册:2012-2-5
  得分:7 
一看就是学生作业

坚守VFP最后的阵地
2018-04-17 18:17
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:160
帖 子:6200
专家分:27163
注 册:2014-5-20
  得分:7 
限5位数可以直接比较 1、5 位和 2、4
2018-04-17 19:17
乔子衎
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-17
  得分:0 
回复 2楼 mywisdom88
谢谢你!
2018-04-17 21:55
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:170
帖 子:7359
专家分:17315
注 册:2012-2-5
  得分:0 
CREATE CURSOR dcheng(数据 N(6),对称 N(6))
FOR i=10000 TO 99999
    cstr=""
    FOR ii=1 TO 5
        cstr=SUBSTR(STR(i,5),ii,1)+cstr
    ENDFOR
    INSERT INTO dcheng VALUES(i,VAL(cstr))
ENDFOR
BROWSE FOR 数据=对称

坚守VFP最后的阵地
2018-04-19 12:18







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

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