oraclesnake_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;

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。