*
         *  *  *
      *  *  *  *  *
   *  *  *  *  *  *  *

我编了这个
* * * * *
  * * * * *
    * * * * *
      * * * * *
程序是：
clear
set talk off
i=1
do while i<=4
   j=1
   do while j<=5
      @i,i+j say "*"
      j=j+1
   enddo
   i=i+1
enddo
set talk on
return
上面三角形编不出来求高手指点啊

图形应该是这样吧
            *
         *  *  *
      *  *  *  *  *
   *  *  *  *  *  *  *

CLEAR
FOR I=1 TO 4
    ?PADC(REPLICATE("*"+SPACE(1),I*2-1),13," ")
ENDFOR

[ 本帖最后由 lygcw9603 于 2012-5-3 21:01 编辑 ]

x=4
FOR i = 1 TO x
    ?PADC(REPLICATE("* ",2*i-1),4*x," ")
NEXT