DECLARE
TYPE num_tt IS TABLE OF INT;
num_t num_tt:=num_tt();
mid_val INT;
mid_j 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 2..num_t.count LOOP
mid_val := num_t(i);
mid_j := i - 1;
WHILE(mid_j > 0) LOOP
IF(mid_val < num_t(mid_j)) THEN
num_t(mid_j + 1) := num_t(mid_j);
ELSE
EXIT;
END IF;
mid_j := mid_j - 1;
END LOOP;
num_t(mid_j+1):= mid_val;
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;
另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。
网站栏目:oracle插入-创新互联
链接URL:http://lswzjz.com/article/cojiji.html