oracle冒泡

DECLARE
   TYPE num_tt IS TABLE OF INT;
   num_t num_tt:=num_tt();
   mid_val INT;
BEGIN
   num_t.extend(20);
   FOR i IN 1..20 LOOP
     num_t(i) := trunc(dbms_random.value(200,100000));
   END LOOP;
   dbms_output.put_line('before sort:');
   FOR i IN 1..num_t.count LOOP
     dbms_output.put_line(num_t(i)||',');
   END LOOP;
   FOR i IN REVERSE 1..num_t.count-1 LOOP
     FOR j IN 1..i LOOP
       IF(num_t(j)>num_t(j+1)) THEN
          mid_val := num_t(j);
          num_t(j) := num_t(j+1);
          num_t(j+1) := mid_val;
       END IF;
     END LOOP;
   END LOOP;
   dbms_output.put_line('after sort:');
   FOR i IN 1..num_t.count LOOP
     dbms_output.put_line(num_t(i)||',');
   END LOOP;
END;
  
  
  

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