Get the prime number between 100 and 150:
create or replace procedure getPrime is
l number(3):=101;
k number(3);
m number(3);
begin
while l < 150 loop
k:= round(sqrt(l),0);--get the sqrt num of L ;
m:=2;
loop if mod(l,m)=0 then -- L is not the prime number
m:=0;
exit;
end if;
m:=m+1;
exit when m>k;
end loop;
if m>0 then --L is prime number now
dbms_output.put_line(l);
end if;
l:= l+2; --even number is prime number
end loop;
end getPrime ;
本文提供了一段程序代码,用于找出100到150之间的所有质数。通过循环和条件判断,该过程能够有效地筛选出指定范围内的质数,并使用数据库输出函数显示结果。
1222

被折叠的 条评论
为什么被折叠?



