vf 超级素数问题三

下面小编给大家整理的vf 超级素数问题三，本文共4篇，欢迎阅读与借鉴!本文原稿由网友“斌芹潆”提供。

篇1：vf 超级素数问题三

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

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

篇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判断一个数是否为超级素数

*** 判断一个数是否为超级素数

***

*** 相关知识

***     超级素数：一个素数，去掉个位是素数；去掉个位和十位也是素数；......；

*** 直到保留到最高位依然是素数，这个素数称为超级素数，

***

*** 编程思路

***     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

篇4：vf统计X以内的超级素数的个数

***

*** 统计X以内的超级素数的个数 By Tiger5392 (C)Copyright 2006-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

“三农”问题的演讲

《素数与合数》的教学反思

应聘文员面试问题 三

GO语言求100以内的素数

解决好“三农”问题的几点思考

vf 超级素数问题三.doc

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档