使用for循环输出一个实心三角形,底边长由用户输入
DECLARE
LENTH INT;
BEGIN
LENTH := 12;
FOR LEVEL IN 1 .. TRUNC(LENTH / 2) + 1 LOOP
DBMS_OUTPUT.PUT_LINE(LPAD(' ', TRUNC(LENTH / 2) - (LEVEL - 1), ' ') ||
LPAD('*', 1 + (LEVEL - 1) * 2, '*'));
END LOOP;
END;
并不完美,只能打印底边长为奇数的三角形,不知可否有更好的方法?