declare
i number:=1; --表示当前数字
j number:=0; --从2开始,存储判断的数字
sum1 number:=0;--总数
begin
while(i<100)
loop
i:=i+1;
j:=2;
while(mod(i,j)!=0)--当取余j=0的时候,即已经找到整除的数字(包括自身)
loop
j:=j+1;--当取余j不等于0的时候,说明还没有找到整除,+1继续循环
end loop;
if(i=j) --当i=j时,表示没有中途退出循环,即除了1跟本身之外没有恰好整除的
then
sum1:=sum1+i;
DBMS_OUTPUT.PUT_LINE(i);--输出当前质数
end if;
end loop;
DBMS_OUTPUT.PUT_LINE(SUM1);
end
;oracle中用while循环查询1到100的质数(素数)
最新推荐文章于 2023-11-08 10:00:37 发布
本文介绍了一个使用PL/SQL编写的简单程序,该程序用于找出1到100之间的所有质数,并计算这些质数的总和。通过双重循环判断每个数字是否为质数,并将质数输出并累加。
874





