如何用delphi做猜數字遊戲? |
|
答題得分者是：jow
|
|
edcash
一般會員   發表：3 回覆：3 積分：1 註冊：2007-10-20 發送簡訊給我 |
|
|
jow
尊榮會員  發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
[code delphi] procedure TForm1.Button2Click(Sender: TObject); var A, B, C, L, R: Integer; begin A := Random(101);//0~100; C := 0; L := 0; R := 100; repeat B := Random((R-L 1) div 2) L; if B > A then begin R := B - 1; Inc(L); end else if B < A then begin L := B 1; Dec(R); end; Inc(C); until (B = A) or (L>=R); Label1.Caption := Format('答案 = %d, 猜了 = %d 次', [A, C]); end; [/code] |
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
[code delphi] procedure TForm1.Button3Click(Sender: TObject); var A, B, C, L, R: Integer; function Guess(): Integer; begin B := Random((R-L 1) div 2) L; Result := B - A; end; begin A := Random(101);//0~100; C := 0; L := 0; R := 100; repeat while (L while (L until (B = A) or (L>=R); Label1.Caption := Format('答案 = %d, 猜了 = %d 次', [A, C]); end; [/code] |
|
edcash
一般會員 發表：3 回覆：3 積分：1 註冊：2007-10-20 發送簡訊給我 |
|
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
你寫的是 Console Application 無法用VCL 中的元件顯示結果
===================引 用 edcash 文 章=================== # procedure TForm1.Button3Click(Sender: TObject); Label1.Caption := Format('答案 = %d, 猜了 = %d 次', [A, C]); 這兩個地方不太了解可以解釋一下嗎? 我是用{$APPTYPE CONSOLE}我是用寫,是一樣的嗎? 謝謝!! |
發表時間：2007-10-20 10:09:01
IP:161.73.xxx.xxx 訂閱
系統時間：2024-11-21 20:41:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |