CREATE OR REPLACE PACKAGE heap_sort_pkg

创新互联专业为企业提供隆昌网站建设、隆昌做网站、隆昌网站设计、隆昌网站制作等企业网站建设、网页设计与制作、隆昌企业网站模板建站服务，十年隆昌做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

AS

 TYPE num_arr_tt IS TABLE OF PLS_INTEGER INDEX BY PLS_INTEGER;

 PROCEDURE add_nums(num_arr_inst IN OUT num_arr_tt, dvalue INT);

 PROCEDURE del_nums(num_arr_inst IN OUT num_arr_tt);

 FUNCTION  get_maxval(num_arr_int IN  OUT num_arr_tt) RETURN INT;

END heap_sort_pkg;

CREATE OR REPLACE PACKAGE BODY heap_sort_pkg

AS

 PROCEDURE add_nums(num_arr_inst IN OUT num_arr_tt, dvalue INT)

 AS

   dest_loc INT := num_arr_inst.count + 1;

   tmp_loc  INT := trunc(dest_loc / 2);

 BEGIN

   WHILE(tmp_loc > 0 AND dvalue > num_arr_inst(tmp_loc)) LOOP

     num_arr_inst(dest_loc) := num_arr_inst(tmp_loc);

     dest_loc := tmp_loc;

     tmp_loc := trunc(dest_loc / 2);

   END LOOP;

   num_arr_inst(dest_loc) := dvalue;

 END add_nums;

 PROCEDURE del_nums(num_arr_inst IN OUT num_arr_tt)

 AS

   lvalue INT;

   rvalue INT;

   umark  INT := 1;

   tmark  INT := umark;

   tvalue INT := num_arr_inst(num_arr_inst.count);

 BEGIN

   IF(num_arr_inst.count <= 1) THEN

    num_arr_inst.delete(1);

    dbms_output.put_line('只有一个值或无值');

    RETURN;

   END IF;

   num_arr_inst.delete(num_arr_inst.count);

   lvalue := umark * 2;

   rvalue := umark * 2 + 1;

   WHILE(umark <= num_arr_inst.count/2) LOOP

     IF(num_arr_inst.exists(lvalue) AND num_arr_inst.exists(rvalue) AND num_arr_inst(lvalue) < num_arr_inst(rvalue)) THEN

       tmark := rvalue;

     ELSE

       tmark := lvalue;

     END IF;

     IF(tvalue < num_arr_inst(tmark)) THEN

       num_arr_inst(umark) := num_arr_inst(tmark);

     ELSE

       EXIT;

     END IF;

     umark := tmark;

     lvalue := umark * 2;

     rvalue := umark * 2 + 1;

   END LOOP;

   num_arr_inst(umark) := tvalue;

 END del_nums;

 FUNCTION get_maxval(num_arr_int IN OUT num_arr_tt) RETURN INT

 AS

   max_value INT := -1;

 BEGIN

   IF(num_arr_int.exists(1)) THEN

    max_value := num_arr_int(1);

    del_nums(num_arr_int);

   END IF;

   RETURN max_value;

 END get_maxval;

END heap_sort_pkg;

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

分享文章：oracleheap_sort-创新互联
URL分享：http://scgulin.cn/article/dshedd.html