引言:

 
#include 
#include 
#include     void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{         int i,a[5];
          int row=1,sel=5;
          StringGrid1->RowCount=2;              while(sel)
             {
               randomize();                   for (i=1;i<=4;i  )
                 {
                  a[i]=random(10);
                 }                   if (a[1] a[2]==10|a[3] a[4]==10)
                 {
                  StringGrid1->Cells[1][row]=IntToStr(a[1]) IntToStr(a[2])
                                             IntToStr(a[3]) IntToStr(a[4]);
                  StringGrid1->Cells[0][row]=sel;                      row  ;
                  StringGrid1->RowCount  ;
                  sel--;
                 }
               }
      
}

引言: 請教先進諸君 想取五組,由亂數取四碼,組成不同的數字 結果取出的都是相同的數字 請問該如何修正請指教 謝謝 [quote]

 
#include 
#include 
#include     void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{         int i,a[5];
          int row=1,sel=5;
          StringGrid1->RowCount=2;              while(sel)
             {
               randomize();                   for (i=1;i<=4;i++)
                 {
                  a[i]=random(10);
                 }                   if (a[1]+a[2]==10|a[3]+a[4]==10)
                 {
                  StringGrid1->Cells[1][row]=IntToStr(a[1])+IntToStr(a[2])
                                            +IntToStr(a[3])+IntToStr(a[4]);
                  StringGrid1->Cells[0][row]=sel;                      row++;
                  StringGrid1->RowCount++;
                  sel--;
                 }
               }
      
}

lo 你好:
(1)看不太懂你的程式碼，小弟我來猜猜看喔!!是不是類似這樣子呢？
   >>> >
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
        

引言: RaynorPao 你好: 比較後,發現將 randomize(); 寫在while圈外就正常了. 雖不知原理卻發現原因 謝謝RaynorPao 君指導 試試執行你的程式10次,看看會怎樣吧! 我記的沒錯的話,10次結果都樣喔!

引言:void __fastcall TForm1::BitBtn1Click(TObject *Sender) { int i,a[5]; int row=1,sel=5; StringGrid1->RowCount=2; randomize(); // 將 randomize(); 寫在while圈外 while(sel) { for (i=1;i<=4;i ) { a[i]=random(10); } if (a[1] a[2]==10|a[3] a[4]==10) { StringGrid1->Cells[1][row]=IntToStr(a[1]) IntToStr(a[2]) IntToStr(a[3]) IntToStr(a[4]); StringGrid1->Cells[0][row]=sel; row ; StringGrid1->RowCount ; sel--; } }

引言: jcjroc你好 我改寫後,將程式執行,並執行10次ok沒問題了. 謝謝你提醒

引言:void __fastcall TForm1::BitBtn1Click(TObject *Sender) { int i,a[5]; int row=1,sel=5; StringGrid1->RowCount=2; randomize(); // 將 randomize(); 寫在while圈外 while(sel) { for (i=1;i<=4;i ) { a[i]=random(10); } if (a[1] a[2]==10|a[3] a[4]==10) { StringGrid1->Cells[1][row]=IntToStr(a[1]) IntToStr(a[2]) IntToStr(a[3]) IntToStr(a[4]); StringGrid1->Cells[0][row]=sel; row ; StringGrid1->RowCount ; sel--; } }

發表人 - lo 於 2004/04/12 21:51:38

引言: jcjroc你好 取組隨時都不同 這是我實際的運用部份圖形每組三碼取10組,重複再取不再重號了,沒問題的 謝謝你的注意