系統要求： 1.由使用者自行輸入 所要選取之開獎號碼 n (內含n -1個一般號及1個特別號 , 例如 使用者輸入8 亦即要 開出7個一般號 及1個特別號)。 2.再由 1到49 數字中隨機亂數選取 n 個號碼 。 3.此 n 個號碼中 一般號均不得重複， 但特別號允許與一般號重複。 4.選取完畢後再將此 n 個數字 由畫面印出。 能教教我這程式該如何下手嗎？ 及用哪種程式語言寫最好呢？ 亦希望能有類似的程式碼能提供給我，麻煩各位高手了！

當然用delphi寫最好啦！ 至於如何下手，看妳依序列出4點，可見妳的思路蠻清楚滴， 只是程式不知如何下手吧！妳不如把這個程式當作學習delphi的 好題材，至市面上買小誌寫的「delphi入門與實作」，裡面有 猜數字遊戲，可以參考改寫成妳要的功能唷！        

給你一點點code其它的你自己來吧....    

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
begin
  Randomize;
  for i:=0 to 6 do
  begin
    j:= Random(49);
    Memo1.Lines.Add(IntToSTr(j));
  end;
end;

1.裡面已經有隨機抓的方法了 2.也有抓幾次的方法(把6改成變數就好) 3.如果你要判斷是否有重覆,就在random出來的變數j多跑一個迴圈判斷就好 ,如果j和之前跑出來放在memo1中的值重覆再跑一次random就ok啦.... 程式難度不高,所以你可以自己玩,給你一小段code方便你著手囉.... 不過其實也差不多了耶...^^ 發表人 - jimmy_wei 於 2004/12/01 19:17:02

我的手上只有一本DELPHI的書， 書名是DELPHI 7 實例領航手冊， 不知用不用的上， 但還是先謝謝你們的提示。

我寫了個範例讓你參考,祝順心!!    void __fastcall TForm1::Button1Click(TObject *Sender) {     int tab[50];        //存隨機選號     int ball,num,i,j,k;        for(i=0;i<50;i ) tab[i]=0; ball=Edit1->Text.ToInt(); //Edit內輸入你的n if(ball>49 ||ball<=1) return; // i=1; while(i<=ball) { num=random(49) 1; for(j=0;j=i) //沒重複 { tab[j-1]=num; i ; } } tab[ball]=random(49) 1; //特別號允許與一般號重複 //顯示出來 AnsiString str=""; for(i=0;iCaption=str; //用Label輸出 }

樓上的.... 你的程式出了一個大問題.....你有沒有發現 你每一次跑出來的資料都一樣.... 不信你可以試試看.... 永遠都是同樣的七個號碼喔..... 你少了一行指令,加上去才會對喔^^ Randomize;

抱歉!! 其實我有試過 只是貼上來的時候迴圈語法 不知道怎會不一樣,我測過再貼一次    void __fastcall TForm1::Button1Click(TObject *Sender) {     int tab[50]; //存隨機選號     int ball,num,i,j,k;        for(i=0;i<50;i ) tab[i]=0; ball=Edit1->Text.ToInt(); //Edit內輸入你的n if(ball>49 ||ball<=1) return; // i=1; while(i<=ball) { num=random(49) 1; for( j=0;j< i; j ) { if(num==tab[j]) break; } if(j>=i) //沒重複 { tab[j-1]=num; i ; } } tab[ball]=random(49) 1; //特別號允許與一般號重複 //顯示出來 AnsiString str=""; for( i=0; i< ball; i ) { j=tab[i]; if(j<10) str ="0"; str =IntToStr(j); str =" "; } Label1->Caption=str; //用Label輸出 }

樓上的，請問一下，為什麼我直接copy你的程式碼到DELPHI 7去， 結果有一堆錯誤耶!為什麼會這樣子啊! ＊颱風天、卻是值班天，利用上班時間努力寫程式中!＊

引言: 樓上的，請問一下，為什麼我直接copy你的程式碼到DELPHI 7去， 結果有一堆錯誤耶!為什麼會這樣子啊! ＊颱風天、卻是值班天，利用上班時間努力寫程式中!＊

樓上的,你說的再樓上的程式碼是C Builder的語法,你當然不能在delphi中用了

參照stellos大大提供的,改成delphi 先在form上取個botton & memo元件,然後    procedure TForm1.Button1Click(Sender: TObject); var   tab:array[0..49] of integer;   i,j,num,ball:integer;   v_found:boolean; begin     Memo1.Lines.Clear;     ball:=strtoint(Edit1.text); //Edit內輸入你的n     // if(ball>49 ||ball<=1) return; // 在Edit1內設定,或用其他專輸數字的Edit     i:=0;     while i

implementation var n:Integer; {$R *.dfm} procedure angain(); begin Form1.Edit1.Text:=''; Form1.Memo1.Lines.Clear; Form1.Memo2.Lines.Clear; end; procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.FormCreate(Sender: TObject); begin angain; Label1.Width:=210; Label1.Height:=35; Label2.Width:=90; Label2.Height:=35; Label3.Width:=90; Label3.Height:=35; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var a,b,i,j,k: Integer; begin n:=StrToInt(Edit1.Text); k:=n-1; for a:=1 to k do begin Randomize; i:= Random(49); Memo1.Lines.Add(IntToStr(i)); end; for b:=1 to 1 do begin Randomize; j:= Random(49); Memo2.Lines.Add(IntToStr(j)); end; end; ＊＊請問一下，我這樣寫是錯在哪啊？英文看不到懂說～麻煩大家了！

1.不要在Edit1KeyPress開始算,在botton按下來算會好一些 2.implementation var n:Integer;這兒錯了,n宣告應該放在 private n:integer; { Private declarations } public { Public declarations }這兒才對 3.程式內容走錯路了哦.

請學習如何讓程式碼可以顯示縮排,謝謝 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=7326

 
procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,i,j,k: Integer;
begin
  n:=StrToInt(Edit1.Text);
  k:=n-1;      for a:=1 to k do
  begin
    Randomize;
    i:= Random(49);
    Memo1.Lines.Add(IntToStr(i));
  end;      for b:=1 to 1 do
  begin
    Randomize;
    j:= Random(49);
    Memo2.Lines.Add(IntToStr(j));
  end;
end;

我這樣寫有兩個漏洞，不知如何修改，可以請大家幫幫我嗎? 1.i的值會重覆出現 2.i及j的值是從0~49去亂數取樣的，但我要從1~49，該怎樣去修改呢? 另外

  for b:=1 to 1 do
  begin
    Randomize;
    j:= Random(49);
    Memo2.Lines.Add(IntToStr(j));
  end;

特別號我這樣寫會不會很怪啊!?該怎樣去修改呢?

procedure TForm1.Button1Click(Sender: TObject);
var
  tab:array[0..49] of integer;
  i,j,num,ball:integer;
  v_found:boolean;
begin
  Memo1.Lines.Clear;
  ball:=strtoint(Edit1.text); //Edit內輸入你的n
  // if(ball>49 ||ball<=1) return; // 在Edit1內設定,或用其他專輸數字的Edit
  i:=0;
  while i begin
    v_found:=False;
    randomize;
    num:=random(49) 1;
    for j:=0 to i do
      if num=tab[j] then
    v_found:=True;
    if not v_found then //沒重複
    begin
      tab[i]:=num;
      Memo1.Lines.Add(IntToSTr(num));
      inc(i);
    end;
  end;
  randomize;
  Memo1.Lines.Add(IntToSTr(random(49) 1)); //特別號允許與一般號重複
end;

為何不試試我轉翻譯stellos的程式呢? 試試後你再去學裡頭的用法. 只要補上一個edit,botton,memo,把這段貼在botton的按下觸發事件上,就能看到資料了

procedure TForm1.Button1Click(Sender: TObject);
var
  tab:array[1..49] of integer;
  i,j,num,ball:integer;
  v_found:boolean;
begin
  Memo1.Lines.Clear;
  ball:=strtoint(Edit1.text); //Edit內輸入你的n
  // if(ball>49 ||ball<=1) return; // 在Edit1內設定,或用其他專輸數字的Edit
  i:=1;
 while i begin 
    v_found:=False;
    randomize;
    num:=random(49) 1;
    for j:=0 to i do
      if num=tab[j] then
      v_found:=True;
    if not v_found then //沒重複
      begin
        tab[i]:=num;
        Memo1.Lines.Add(IntToSTr(num));
        inc(i);
      end;      end;

出現以下的錯誤訊息耶! Missing operator or semicolon 指向紅色那行字!

sorry! 貼上去時出了問題,是    while i

來是系統造成的,我用全型試試 ｗｈｉｌｅ ｉ ＜ ｂａｌｌ －１ ｄｏ ｂｅｇｉｎ

v_found→這是指什麼啊? 另外，一般號還是有重覆的數字出現耶! 而特別號不見了

不好意思，是我搞錯了!

不好意思，是我搞錯了! 沒事了!