pl/sql 求质数

最新推荐文章于 2021-11-02 22:45:59 发布

magicbluestone

最新推荐文章于 2021-11-02 22:45:59 发布

阅读量896

点赞数

文章标签： table

本文链接：https://blog.csdn.net/magicbluestone/article/details/6217051

版权

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

摘要由CSDN通过智能技术生成

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