AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > VFP

超级素数问题三

51自学网 2015-09-27 http://www.51zixue.net

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

FUNCTION IsSupperPrime
PARAMETERS nNum
PRIVATE nNum,nNum1,cNum,nCnt,lIsSupperPrime
IF SUBSTR(ALLTRIM(STR(nNum)),1,1)$"14689"
  RETURN .F.  &&若数值最高位不为2,3,5,7之一,则判定该数不为超级素数
ENDIF
FOR nCnt=0 TO LEN(ALLTRIM(STR(nNum)))-2
  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
    RETURN .F.  &&要判断的数除高位外其余数值中含有0,2,4,5,6,8之一,则判定不为素数
  ENDIF
  IF IsPrime(nNum1)=.F.
    RETURN .F.  &&去掉nCnt位后不为素数,则判定不为超级素数
  ENDIF
ENDFOR
RETURN .T.
*** EOF(): IsSupperPrime By Tiger5392 (C)Copyright 2006-2006

FUNCTION IsPrime
PARAMETERS nNumber
PRIVATE nNumber,nCnt
FOR nCnt=2 TO SQRT(nNumber)
  IF nNumber%nCnt=0
    RETURN .F.
  ENDIF
ENDFOR
RETURN .T.
*** EOF(): IsPrime By Tiger5392 (C)Copyright 2006-2006

 

 

 
上一篇:利用oleDB对象,将数据库中全部表转换成XML文件  下一篇:超级素数问题一