声明
num_tt类型是INT表;
num_t1 num_tt:=num_tt ();
num_t2 num_tt:=num_tt ();
num_t3 num_tt:=num_tt ();
i_1 INT:=1;
j_1 INT:=1;
d_1 INT:=1;
开始num_t1.extend (20);
num_t2.extend (20);
num_t3.extend (num_t1.count + num_t2.count);
我在1 . .20个循环
num_t1(我):=trunc (dbms_random.value (200、100000));
结束循环;
dbms_output.put_line (“num_t1:”);
quick_sort (num_t1 1 num_t1.count);
1 . . num_t1的我。计数循环
dbms_output.put_line (num_t1 (i) | | ', ');
结束循环;
我在1 . .20个循环
num_t2(我):=trunc (dbms_random.value (200、100000));
结束循环;
dbms_output.put_line (“num_t2:”);
quick_sort (num_t2 1 num_t2.count);
1 . . num_t2的我。计数循环
dbms_output.put_line (num_t2 (i) | | ', ');
结束循环;
(i_1 <=num_t1。计数和j_1 <=num_t2.count)循环
如果(num_t1 (i_1)> num_t2 (j_1))然后
num_t3 (d_1):=num_t2 (j_1);
j_1:=j_1 + 1;其他
num_t3 (d_1):=num_t1 (i_1);
i_1:=i_1 + 1,
结束如果;
d_1:=d_1 + 1,
结束循环;如果(i_1
=num_t1.count)然后在i_1
我. . num_t1。计数循环
num_t3 (d_1):=num_t1 (i),
d_1:=d_1 + 1,
结束循环;其他
j_1 . . num_t2的我。计数循环
num_t3 (d_1):=num_t2 (i),
d_1:=d_1 + 1,
结束循环;
结束如果;
dbms_output.put_line (“num_t3:”);
1 . . num_t3的我。计数循环
dbms_output.put_line (num_t3 (i) | | ', ');
结束循环;
,
