必勝的原理 如何才能輕易獲勝呢？這就要去尋找其中的規律。我制作了一個小程序，讓你可以和計算機單挑。程序界面如圖。
若你先報數，不是我誇口，你是一定斗不過計算機的；若計算機先報數，那麼就看你的了，如果你犯任何一次錯誤，計算機都會抓住機會反敗為勝。聽起來這個程序好像很智能，其實它的道理很簡單：
獲勝的必要條件是：牢牢抓住3的倍數。具體來講就是把對方報的數字與3求模，若值為1，則報的數字為對方的數字加2；若值為2，則報的數字為對方的數字加1；否則的話就隨意報1或者2。這樣在游戲中就能緊緊抓住3的倍數，堅持到最後就是勝利者。
把這個算法用程序實現後，電腦在與人對局的時候就智能化了。試問不知道此算法的人會是電腦的對手嗎？
關鍵代碼 在有了程序的算法和界面之後，要編寫完整的程序就不是很困難了。
最關鍵的顯示實報的數字的Edit控件的Onchange代碼：
procedure TForm1.Edit1Change(Sender: TObject);
begin
if flag=false then //得到控制權，計算機開始自動報數
begin
temp1:=s+1;
temp2:=s+2;
if (temp1 mod 3)=0 then //你報的最後的數字與3取模，若為1，則計算機加2
begin
s:=temp1;
j:=1;
end
else if (temp2 mod 3)=0 then //你報的最後的數字與3取模，若為2，則計算機加1
begin
s:=temp2;
j:=2;
end
else //否則計算機隨機報一個數字或兩個數字
begin
randomize();
j:=random(2)+1;
s:=s+j;
end;
Button2.Enabled :=true; //計算機報數完畢後把報數按鈕設為可用
Button3.Enabled :=true;
Button2.Caption :=IntToStr(s+1); //並把報數按鈕的Caption設為將要選擇的數字
Button3.Caption :=IntToStr(s+2);
Edit2.Text :=IntToStr(j); //顯示計算機報的個數
ListBox1.Items.Add(計算機報的個數： +IntToStr(j));//寫入到歷史記錄
flag:=true; //交出控制權
Edit1.Text :=IntToStr(s); //顯示計算機實際報的數字
if s>=30 then //判斷游戲是否結束
begin
Button2.Enabled :=false;
Button3.Enabled :=false;
ShowMessage(嘿嘿，想贏我？動動腦筋再來吧！);
end;
end;
end;
難點講解 用一個BOOL變量來交接控制權，也就是什麼時候該由你報數，什麼時候該由計算機報數。
Form1.Edit1Change處理時要注意，Edit1顯示的是計算機實際報的數字。當控制權移交到計算機時，計算機處理完報數程序後要做兩件事：1交出控制權，2刷新Edit1的顯示。這裡要相當小心，看起來這兩件事的先後順序不重要，可實際上要特別注意：如果先刷新Edit1的顯示再交出控制權的話，數據就會溢出！
道理是這樣的，當程序執行到Edit1的顯示刷新時，程序不再向下執行而是回到本段程序的第一行開始依次執行，當執行到這裡時再次返回到第一行……死循環就產生了！所以一旦遇到刷新Edit1的顯示時，請仔細考慮所做的事情是否存在先後順序，因為執行Edit1的顯示代碼後程序將不再向下繼續執行，而是跳到TForm1.Edit1Change事件中，請仔細體會這段程序。
源代碼下載
