線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2000
推到 Plurk!
推到 Facebook!

如何用delphi做猜數字遊戲?

答題得分者是:jow
edcash
一般會員


發表:3
回覆:3
積分:1
註冊:2007-10-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-10-20 10:09:01 IP:161.73.xxx.xxx 訂閱
猜一個0-100之間的數字,
猜一個數字後會顯示太大或太小,
猜對以後會算出總共猜了幾次才猜對.
可以給個簡單例子嗎?
感恩!!!
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-10-20 12:06:38 IP:123.193.xxx.xxx 訂閱

[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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-10-20 12:25:39 IP:123.193.xxx.xxx 訂閱

[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 (L0) do begin R := B - 1; Inc(L); Inc(C); end;
while (L if B=A then Inc(C);
until (B = A) or (L>=R);
Label1.Caption := Format('答案 = %d, 猜了 = %d 次', [A, C]);
end;
[/code]
edcash
一般會員


發表:3
回覆:3
積分:1
註冊:2007-10-20

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-10-20 18:16:25 IP:161.73.xxx.xxx 訂閱
# procedure TForm1.Button3Click(Sender: TObject);
Label1.Caption := Format('答案 = %d, 猜了 = %d 次', [A, C]);
這兩個地方不太了解可以解釋一下嗎?
我是用{$APPTYPE CONSOLE}我是用寫,是一樣的嗎?
謝謝!!
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-10-22 14:03:32 IP:210.66.xxx.xxx 訂閱
你寫的是 Console Application 無法用VCL 中的元件顯示結果

===================引 用 edcash 文 章===================
# procedure TForm1.Button3Click(Sender: TObject);
Label1.Caption := Format('答案 = %d, 猜了 = %d 次', [A, C]);
這兩個地方不太了解可以解釋一下嗎?
我是用{$APPTYPE CONSOLE}我是用寫,是一樣的嗎?
謝謝!!
系統時間:2017-12-15 4:58:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!