用Pascal语言求出1——1000以内的孪生素数!
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 11:45:09
用Pascal语言求出1——1000以内的孪生素数!用Pascal语言求出1——1000以内的孪生素数!用Pascal语言求出1——1000以内的孪生素数!思路:1.定义一个“函数prime”,判断该
用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