红豆冰山
来源：互联网 发布：网络教育有学籍档案 编辑：程序博客网 时间：2024/04/28 17:17
sys@TEST_LUNAR> set heading on
sys@TEST_LUNAR> set feedback on
sys@TEST_LUNAR> set heading off
sys@TEST_LUNAR> set feedback off
sys@TEST_LUNAR> set pagesize 2000
sys@TEST_LUNAR>
sys@TEST_LUNAR> select decode
2 ( sign(floor(maxwidth/2)-rownum)
3 , 1, lpad( ' ', floor(maxwidth/2)-(rownum-1))
4 || rpad( '*', 2*(rownum-1)+1, ' *')
5 )
6 from all_objects
7 , (select 10 as maxwidth from dual)
8 where rownum < floor(maxwidth/2) +1;
*
* *
* * *
* * * *
sys@TEST_LUNAR>
sys@TEST_LUNAR> set heading on
sys@TEST_LUNAR> set feedback on
sys@TEST_LUNAR>
