甲骨文冒泡

声明
num_tt类型是INT表;
num_t num_tt:=num_tt ();
mid_val INT;

开始num_t.extend (20);
我在1 . .20个循环
num_t(我):=trunc (dbms_random.value (200、100000));
结束循环;
dbms_output。put_line(:之前);
1 . . num_t的我。计数循环
dbms_output.put_line (num_t (i) | | ', ');
结束循环;
我反过来1 . . num_t。把1 j的循环
1 . .我循环
如果(num_t (j)> num_t (j + 1)然后
mid_val:=num_t (j);
num_t (j):=num_t (j + 1);
num_t (j + 1):=mid_val;
结束如果;
结束循环;
结束循环;
dbms_output。put_line(“后:”);
1 . . num_t的我。计数循环
dbms_output.put_line (num_t (i) | | ', ');
结束循环;
,


甲骨文冒泡