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