oracle snake_trian

DECLARE

   TYPE arr1_tt IS TABLE OF INT INDEX BY PLS_INTEGER;

   TYPE arr2_tt IS TABLE OF arr1_tt INDEX BY PLS_INTEGER;

   arr2_inst arr2_tt;

   ROW INT := 1;

   col INT := 1;

   tmprow INT := 0;

   tot INT := 0;

BEGIN

  WHILE(ROW<=5) LOOP

    col := 1;

    tmprow := ROW;

    WHILE(col<=ROW) LOOP

       tot := tot + 1;

       arr2_inst(tmprow)(col) := tot;

       tmprow := tmprow-1;

       col := col + 1;

     END LOOP;

    ROW := ROW + 1;

  END LOOP;

  FOR i IN 1..arr2_inst.count LOOP

    FOR j IN 1..arr2_inst(i).count-i+1 LOOP

       dbms_output.put_line(arr2_inst(i)(j)||'');

    END  LOOP;

 END LOOP;

END;


  


發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章