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

来源：学生作业帮助网 编辑：作业帮 时间：2024/10/02 08:14:13
用Pascal语言求出1——1000以内的孪生素数!
xTn@~Rj}zZ"6)2!Ci RI(B"RPLwAr:Vvvf⹤Y ;\hS>VR/ w8yO%P.Ƚ6l--F J]~\08F.4|rn`h QB.EEx>)ǯ@p>9bmP7A,X^ދD"@(+F;*}-yXo|k&$)=t/^F. ^\:0.WHe0CꗯqMD;lW645UdHH 0Zbm %Md{qWx}Oc`E\k@JvּDwZ3+=@ÖM$ַ Ѭ$DMIRĘ)LX=5t;J419#-,ɒ#=}&!)jWJ;!'[^t npw {켘]?"LMcI5C4(V?}]{_)cU@̔<0f ?y8Xqb 

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

用Pascal语言求出1——1000以内的孪生素数!
思路：
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以内,还可以.

经过上机调试,测试通过,源代码见附件.

用Pascal语言求出1——1000以内的孪生素数! C语言编程：1 求出1000以内所有偶数之和 pascal语言编程问题（free pascal求1—N中的素数的个数.(1 求100以内的素数pascal语言 pascal语言:输入一个正整数n,输出n以内所以素数要用“枚举法”做 用pascal编求出1—100的5的倍数或7的倍数的和 计算1—1000之间能同时被3和5整除的整数的和.pascal语言急! 用pascal求出正整数3～M(3 用pascal语言编程：输出n(n Pascal语言某自然数N(1 pascal试求出1-10000以内所有0以内的素数的倍数,重复的只算一个,求它们的和是所有10以内的.打错了 PASCAL求出100以内的全部素数,并按每行五个数显示 100以内的8对孪生质数是多少?(写下数）Pascal语言 用随机函数random产生100到1000的随机数,用pascal语言,语句怎么写? 用PASCAL语言编写一个求1+2+3+...+N的程序 pascal 100以内奇数求和 计算1*2*3*.*n>1000的第一个n值（用pascal语言,while循环和repeat循环来做） 用Pascal语言求m^n的精确值,0