用Pascal语言求出1——1000以内的孪生素数！！！！

Question

各位大神帮帮忙！！！

Answer 1

思路：

1.定义一个“函数prime”，判断该数是否是素数；

2.主程序：

   1）输出（2,3）

   2）从3~999的所有奇数循环；

   3）如果这个数是素数，则判断这个数+2是不是素数，如果是，则输出（这个数，这个数+2）。

程序LZ可以自己试试看。

这个定义的函数prime的思路是：

1.要判断一个数 n 是否是素数，可以从2~trunc(sqrt(n))循环，再看循环变量是否能整除 n ，如果都不能整除，则 n 是素数；

2.过程如下：

function prime(n:longint):boolean;

var i:longint;

begin

 prime:=true;

 for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then 

  begin 

    prime:=false;

    exit;

  end;

end;

这段代码不优化，不过由于是1000以内，还可以。

经过上机调试，测试通过，源代码见附件。

希望对你有帮助。

追问

那孪生素数应该怎么求呢？

追答

所谓孪生素数，就是连续的两个奇数都是素数（比如5和7，或11和13，特别的，因为2是唯一的偶素数，因此2和3也是一对孪生素数）。

求孪生素数，是在主程序段内，如果你已看过代码了，会发现这么一段：

if prime(i) and prime(i+2)
then writeln('(',i,',',i+2,')');

由于我们的循环变量 i 已经定义为了奇数：if odd(i)

因此如果 i 和 i+2 都通过了判断素数prime的函数，就会都返回true，因此可以肯定i和i+2是一对孪生素数。

      理解了吗？

为了防止LZ没装pascal编译器，这里再放一个可执行文件，点开后会有结果，1000以内的孪生素数。（先下载）