作业帮 > 综合 > 作业

用pascal语言求100以内的质数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 16:19:22
用pascal语言求100以内的质数
program oo;
var
i,j:integer;
f:boolean;
begin
for i:=1 to 100 do
begin
f:=true;
for j:=2 to trunc(sqrt(i))+1 do
if i mod j=0 then begin f:=false;end;
if f=true then
write(i:4);
end;
readln;
end.
for j:=2 to trunc(sqrt(i))+1 do
截尾函数后为什么要加1?
其实加与不加一个样子
不信你可以试验一下
但是我建议的是不加
因为很多大的程序要对数字判奇偶
上万个数字判断
如果每个数字都要多加一次判断
没用
而且还浪费时间
这是我的看法
如果有不同的
绝不否认!