我寫好一個程式，可以列印出 *********1 *******2*2 *****3*3*3 ***4*4*4*4 但是我想改成 ****1****** ***2*2***** **3*3*3**** *4*4*4*4*** （"*"表示空白） 請問程式要怎麼修正    

 
void __fastcall Tfrm::btnstartClick(TObject *Sender)
{
    int i,j;
    const fontsize=12 ;           
    const wordsize=fontsize 4;
    Canvas->Font->Size=fontsize;
    Canvas->Brush->Style=bsClear;
    for (i=1 ;i<=6;i  )   
       for (j=1;j<=i;j  )
           Canvas->TextOut(wordsize*(6-j),wordsize*i,i);
 }
//---------------------------------------------------------------------------    void __fastcall Tfrm::btnendClick(TObject *Sender)
{
    Close();
}    

還有請問一下 1 2 3 4 5 6 7 8 9 10 要畫出這樣的圖形，要怎麼用for迴圈寫，我時在想不出來，請前輩們賜教。 這是我自己的興趣，想說學學寫程式，不是學校的作業喔，因為 放寒假了︿︿ 請前輩門幫忙 謝謝 發表人 - chiehjen 於 2004/01/11 16:22:48

關你的問題，一些書上真的很多，多找一下書吧。 加油，我也在學習當中。

加油~~~參考看看吧    

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int count = 9;
        int gap = 12;
        int num=1;
        for(int i=0;iTextOut(gap*j,gap*i,'*');
                for(int j=0;jTextOut(gap*(count - i   j),gap*i,'*');
                           else
                                Canvas->TextOut(gap*(count - i   j),gap*i,'a');
                        }                    for(int j=0;jTextOut( gap*(count (num-1)/2  1)   gap*j ,gap*i,'*');
                num =2;
         }
}
//---------------------------------------------------------------------------        

Baby

我來亂插花< class="code"> Ans1: const wordsize=12; int i=100; for (int y=1 ;y<=6;y ) { for (int x=1;x<=y;x ) { Canvas->TextOut(i wordsize*x,wordsize*y,y); } i-=6; } Ans2: const wordsize=12; int v=1; for (int y=1 ;y<=4;y ) for (int x=1;x<=y;x ) { Canvas->TextOut(wordsize*x,wordsize*y,v); v ; } 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

引言: 我來亂插花< class="code"> Ans1: const wordsize=12; int i=100; for (int y=1 ;y<=6;y ) { for (int x=1;x<=y;x ) { Canvas->TextOut(i wordsize*x,wordsize*y,y); } i-=6; } Ans2: const wordsize=12; int v=1; for (int y=1 ;y<=4;y ) for (int x=1;x<=y;x ) { Canvas->TextOut(wordsize*x,wordsize*y,v); v ; } 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ < face="Verdana, Arial, Helvetica"> 感謝您，我的問題解決了，謝謝您的指導，感恩。

給 taishyang 版主... 您插花插的很漂亮...^^ 我好像也想的太複雜了....^^ 喜歡挑戰邏輯思考的Baby

引言:我好像也想的太複雜了....^^

其實是我太嫩,想不到複雜的< > 順心< >