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

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 10:30:58

用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