pl/sql 求质数

该PL/SQL过程用于生成指定范围内的质数。它使用一个索引表存储质数,通过遍历并检查每个数字是否为质数来填充表。过程中涉及到平方根计算、模运算以及质数判断等步骤。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

create or replace procedure pr_prime(in_num in number)
is
type arr_prime is table of number INDEX BY BINARY_INTEGER;
my_arr_prime arr_prime;

n_cur_mult number(10):=1;
n_prime_1 number(10):=1;
n_prime_2 number(10):=2;
n_max number(10):= floor((in_num+1)/6);
n_arr_ind number(10):=1;
b_prime number(1):=0;
n_arr_max number(10):=2;
begin
   my_arr_prime(1):=2;
   my_arr_prime(2):=3;
   for i in 1..n_max loop
     n_prime_1 := i*6-1;
     n_prime_2 := i*6+1;
     n_cur_mult := ceil(sqrt(n_prime_2));
    

     for j in 1..2 loop
         if j =2 then
           n_prime_1:= n_prime_2;
         end if;
        
         if n_prime_1 > in_num then
           exit;
         end if;
         n_arr_ind:=1;
         b_prime :=0;
         while n_arr_ind <= n_arr_max and my_arr_prime(n_arr_ind)<= n_cur_mult loop
           if mod(n_prime_1, my_arr_prime(n_arr_ind)) =0 then
              b_prime :=1;
              exit;
           end if;
           n_arr_ind := n_arr_ind+1;
         end loop;

         if b_prime = 0 then
            n_arr_max := n_arr_max+1;
            my_arr_prime(n_arr_max) := n_prime_1;
           
         end if;
     end loop;


   end loop;
  
   --for i in 1..n_arr_max loop
    --dbms_output.put_line(my_arr_prime(i));
   --end loop;

end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值