create or replace procedure p_cycle
as
i int;
begin
i := 0;
for i in 1 .. 4 loop
--前四行的控制
for k in reverse 0 .. (4 - i) loop
--空格
dbms_output.put(' ');
end loop;
for j in 1 .. (2 * i - 1) loop
--*号打印
dbms_output.put('*');
end loop;
dbms_output.new_line();
--换行
end loop;
--下面的跟上面的差不多，就是反过来
for i in 1 .. 3 loop
for k in 0 .. i loop
dbms_output.put(' ');
end loop;
for j in reverse 1 .. (7 - 2 * i) loop
dbms_output.put('*');
end loop;
dbms_output.new_line();
end loop;
end;
as
i int;
begin
i := 0;
for i in 1 .. 4 loop
--前四行的控制
for k in reverse 0 .. (4 - i) loop
--空格
dbms_output.put(' ');
end loop;
for j in 1 .. (2 * i - 1) loop
--*号打印
dbms_output.put('*');
end loop;
dbms_output.new_line();
--换行
end loop;
--下面的跟上面的差不多，就是反过来
for i in 1 .. 3 loop
for k in 0 .. i loop
dbms_output.put(' ');
end loop;
for j in reverse 1 .. (7 - 2 * i) loop
dbms_output.put('*');
end loop;
dbms_output.new_line();
end loop;
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/12961536/viewspace-769543/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
