NYOJ孪生素数问题_孪生素数问题

刀豆文库小编猜你可能喜欢“孪生素数问题”。

NYOJ孪生素数问题(（整理3篇））由网友“铭山”投稿提供，下面是小编为大家整理后的NYOJ孪生素数问题，欢迎大家借鉴与参考，希望对大家有所帮助。

篇1：NYOJ孪生素数问题

时间限制：3000 ms | 内存限制：65535 KB 难度：3

描述

写一个程序，找出给出素数范围内的所有孪生素数的组数，一般来说，孪生素数就是指两个素数距离为2，近的不能再近的相邻素数。有些童鞋一看到题就开始写程序，不仔细看题，咱们为了遏制一下读题不认真仔细的童鞋，规定，两个素数相邻为1的也成为孪生素数。

#include

int f[1000010]={1,1}; //内存居然不能开1000000,要大一点,否则会runtime error!!!!!!!!!!!!!!!!

int s[1000010];

bool is_prime(int n)

{

int i;

for(i=2;i<1000010;++i)\“ if(is_prime(i))=\”\“ f[i]=\”0;\“ for(j=\”i*i;j<1000010;j+=i)\“ f[j]=\”1;\“ if(!f[i])=\”\“ s[j++]=\”i;\“ n,m;=\”\“ scanf(\”%d\“,&n);=\”\“ while(n--)=\”\“ k=\”0;\“ scanf(\”%d\“,&m);=\”\“ if(s[i]-s[i-1]=\”=1||s[i]-s[i-1]==2)\“ k++;=\”\“ printf(\”%d\\n\“,k);=\”\“ 0;=\”\“ }<=\”\“ pre=\”\“>          

输入

第一行给出N(0 接下来组测试数据给出m，表示找出m之前的所有孪生素数，

(0 输出

每组测试数据输出占一行，该行为m范围内所有孪生素数组数。

样例输入

1

14

样例输出

4

代码:

int f[1000010]={1,1}; //内存居然不能开1000000,要大一点,否则会runtime error!!!!!!!!!!!!!!!!

int s[1000010];

bool is_prime(int n)

{

int i;

for(i=2;i<1000010;++i)\” if(is_prime(i))=\“\” f[i]=\“0;\” for(j=\“i*i;j<1000010;j+=i)\” f[j]=\“1;\” if(!f[i])=\“\” s[j++]=\“i;\” n,m;=\“\” scanf(\“%d\”,&n);=\“\” while(n--)=\“\” k=\“0;\” scanf(\“%d\”,&m);=\“\” if(s[i]-s[i-1]=\“=1||s[i]-s[i-1]==2)\” k++;=\“\” printf(\“%d\\n\”,k);=\“\” 0;=\“\” }<=\“\” pre=\“\”>          

篇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 超级素数问题三

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