聲明
類型arr_tab_type是由Binary_Integer索引的數字(2)的表；
tab arr _ tab _ type
開始
對於1中的I..7回路
如果我& lt& gt那就7
Select trunc(dbms_random。值(1，34))從dual轉換到tab(I)；
其他
select trunc(DBMS _ random . value(1，17))進入tab(I)from dual；
結束if；
如果我& gt=2並且i & lt& gt那就7
對於I中的j..1循環
如果tab(i)=tab(j-1 ),則
select trunc(dbms_random。值(1，34))從dual轉換到tab(I)；
其他
null
結束if；
結束循環；
結束if；
DBMS _ output . put _ line(tab(I))；
結束循環；結束；