pl/sql 求质数
来源:互联网 发布:淘宝红包抵扣 编辑:程序博客网 时间:2024/06/05 07:08
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;
- pl/sql 求质数
- PL/SQL计算质数
- pl/sql 求二分法
- 用sql语句来完成求质数
- 求PL/SQL教材视频
- pl/sql 求选择排序
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- 求质数
- Asp.net mvc2中根据选中多个CheckBox,让文本框显示选中内容
- Oracle性能分析工具小结——《Oracle高效设计学习笔记》
- 三态树
- js+setInterval()两种方式
- 纠结
- pl/sql 求质数
- html+<a href=问题 刷新page时会带来意想不到的fault
- ASP.NET 安全认证(一):怎么运用 Form 表单认证
- Android系统架构
- poj 2828 Buy Tickets
- 第一篇
- 博客能用了
- 确保已安装文件类型 .aspx 的应用程序
- Android的功能特性简介