| 网站首页 | 技术文章 | 下载频道 | 博客 | 编程论坛 |
 
| 技术教程首页 | 开发语言 | WEB开发 | .NET技术 | 数据库 | 操作系统 | 网页制作 |
 
 
您现在的位置: 编程中国 >> 技术教程 >> 数据库 >> VFP >> VFP技术资料 >> 正文
  ►  超级素数问题二——判断一个数是否为超级素数
超级素数问题二——判断一个数是否为超级素数
作者:Tiger5392    阅读人次:……    文章来源:本站原创    发布时间:2006/10/14    网友评论()条
 

原文及讨论:http://hi.bccn.net/space-67595-do-blog-id-1810.html

***  判断一个数是否为超级素数 By Tiger5392 (C)Copyright 2006-2006
***
***  相关知识
***      超级素数:一个素数,去掉个位是素数;去掉个位和十位也是素数;......;
***  直到保留到最高位依然是素数,这个素数称为超级素数。
***
***  编程思路
***      1.素数一定不能是1。给定的数若为超级素数,则高位不能是1。
***      2.素数一定不能被2整除(2除外)。给定的数若为超级素数,则各位数字不能含有0,2,4,6,8(高位2除外)。
***      3.素数一定不能被5整除(5除外)。给定的数若为超级素数,则各位数字不能含有0,5(高位5除外)。
***      4.经过分析,有这样的结论:
***        (1)高位可能为2,3,5,7,而绝对不能是0,1,4,6,8,9;
***        (2)除高位外的其它各位数字可能是1,3,7,9,而绝对不能是0,2,4,5,6,8。
***
PARAMETERS nNum
PRIVATE nNum,nNum1,cNum,nCnt,lIsSupperPrime
IF TYPE("nNum")#CHR(78) OR INT(nNum)#nNum OR nNum<1 &&参数为大于0的整数
  RETURN .F.
ENDIF
lIsSupperPrime=INLIST(VAL(SUBSTR(ALLTRIM(STR(nNum)),1,1)),2,3,5,7) &&提取高位数字并判断是否为素数
IF lIsSupperPrime=.F.
  RETURN .F.
ENDIF
FOR nCnt=0 TO LEN(ALLTRIM(STR(nNum)))-1
  nNum1=INT(nNum/10^nCnt)              &&将原数去掉从个位开始的nCnt位
  cNum=SUBSTR(ALLTRIM(STR(nNum1)),2)   &&提取除高位外的其余部分
  IF "0"$cNum OR "2"$cNum OR "4"$cNum OR "5"$cNum OR "6"$cNum OR "8"$cNum
    lIsSupperPrime=.F.
    EXIT
  ELSE
    lIsSupperPrime=.T.
  ENDIF
  IF !IsPrime(nNum1)
    lIsSupperPrime=.F.
    EXIT
  ENDIF
ENDFOR
RETURN lIsSupperPrime
*** EOF(): IsSupperPrime By Tiger5392 (C)Copyright 2006-2006

FUNCTION IsPrime
PARAMETERS nNumber
PRIVATE nNumber,lOk,nCnt
IF nNumber<10  &&10以内的数直接判断是否为素数
  lOk=INLIST(nNumber,2,3,5,7)
ELSE
  IF MOD(nNumber,2)=0 OR MOD(nNumber,3)=0 OR MOD(nNumber,5)=0 OR MOD(nNumber,7)=0
    lOk=.F.
  ELSE
    lOk=.T.
    FOR nCnt=2 TO SQRT(nNumber)
      IF MOD(nNumber,nCnt)=0
        lOk=.F.
        EXIT
      ENDIF
    ENDFOR
  ENDIF
ENDIF
RETURN lOk
*** EOF(): IsPrime By Tiger5392 (C)Copyright 2006-2006

 

 
文章录入:静夜思    责任编辑:静夜思 
  • 上一篇文章:

  • 下一篇文章:

  •  
    相关文章
    原创地带
    24小时热门帖子