vf判断一个数是否为超级素数
“明明就”通过精心收集，向本站投稿了4篇vf判断一个数是否为超级素数，下面是小编为大家整理后的vf判断一个数是否为超级素数，仅供参考，大家一起来看看吧。
篇1：vf判断一个数是否为超级素数
*** 判断一个数是否为超级素数
***
*** 相关知识
*** 超级素数：一个素数，去掉个位是素数；去掉个位和十位也是素数；......；
*** 直到保留到最高位依然是素数，这个素数称为超级素数，
***
*** 编程思路
*** 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
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
篇2：vf超级素数问题一
***
*** FUNCTION SP V1.00 (C)Copyright By Tiger5392
***
*** 一个素数，依次从个位数开始去掉一位，两位，，。。所得的各数仍然是素数，称为超级素数。
***本程序就是用来判断一个数是不是超级素数。
***
*** 用法：?SP(nExpr)
*** 参数：nExpr为数值型数据，它为大于1的整数。
*** 返回：若为超级素数则返回逻辑真(.T.)；否则返回逻辑假(.F.)。
***
PARAMETERS nNum
PRIVATE nNum,nNum1,cNum,nCnt1,nCnt2,lOk
SET TALK OFF
IF TYPE([nNum])!=CHR(78)
RETURN [没有参数或参数不为数值]
ENDIF
IF INT(nNum)!=nNum OR nNum<2
RETURN [参数应为大于1的正整数]
ENDIF
cNum=ALLTRIM(STR(nNum))
lOk=.T.
FOR nCnt1=0 TO LEN(cNum)-1
nNum1=VAL(SUBSTR(cNum,1,LEN(cNum)-nCnt1))
IF nNum1=1
lOk=.F.
EXIT
ENDIF
FOR nCnt2=2 TO SQRT(nNum1)
IF MOD(nNum1,nCnt2)=0
lOk=.F.
EXIT
ENDIF
ENDFOR
ENDFOR
RETURN lOK
***EOF():
篇3：vf统计X以内的超级素数的个数
***
*** 统计X以内的超级素数的个数 By Tiger5392 (C)Copyright -2006
***
*** 语法
*** ?超级素数(nExpr)
*** nExpr:正整数,表示要计算从1到该数之间的超级素数
*** 返回:超级素数的个数
***
*** 相关知识
*** 超级素数：一个素数，去掉个位是素数；去掉个位和十位也是素数；
*** 直到保留到最高位依然是素数，这个素数称为超级素数，
***
PARAMETERS nNum
PRIVATE nNum,tStartTime,nTotal,nCnt,lIsSupperPrime
CLEAR
tStartTime=SECONDS
nTotal=0 &&超级素数的个数的初始值
FOR nCnt=1 TO nNum &&nNum以内的数都需要进行判断
IF IsSupperPrime(nCnt)
nTotal=nTotal+1
* ?STR(nTotal,5)+STR(nCnt,10)+STR(SECONDS()-tStartTime,10,3)
ENDIF
ENDFOR
?“Total Time:”+STR(SECONDS()-tStartTime,10,3)+“ Seconds”
?“Total Prime Numbers:”+STR(nTotal,5)+“(1-”+ALLTRIM(STR(nNum))+“)”
RETURN nTotal
*** EOF(): CSP By Tiger5392 (C)Copyright 2006-2006
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
篇4：c语言：实现一个函数，判断一个数是不是素数。
实现一个函数，判断一个数是不是素数，
程序：
#include 结果一： 请输入一个大于1的正整数：8 8不是素数 请按任意键继续. . . 结果二： 请输入一个大于1的正整数：17 17是素数 请按任意键继续. . . 【vf判断一个数是否为超级素数】相关文章： 1.一个数乘分数 10.超级好牙刷打一成语
文档为doc格式
