用Delphi編寫圓周率模擬器[2]

　　pi:=(4*(StrToInt(Label1.Caption))/(StrToInt(Label1.Caption)+StrToInt(Label2.Caption)));
　　Label3.Caption:=FloatToStr(pi);
　　// Label4顯示的是最接近真實pi的值。
　　piok:=StrToFloat(Label4.Caption);
　　//得出最接近的圓周率值 piok
　　if (abs(pi-3.141592653589))<(abs(piok-3.141592653589)) then
　　Label4.Caption:=FloatToStr(pi);
　　end;

　　最后加入兩個SpeedButton作為開始和暫停按鈕，代碼分別是Timer1.Enabled:=true;和Timer1.Enabled:=false;。好了，程序這樣就完成了，趕快按下F9親自模擬一下π的計算吧！

　　三、小結

　　雖然程序并沒有采用圓周率的算法，但能通過隨機數對π進行逼近，而由無數點描成的美妙圓弧讓我們嘆為觀止。其實，這樣的思想可以用于許多場合，比如對某個數學定理或者自然規律（彩票？）進行模擬，希望這樣的思路對您有所啟發。

文章來源于領測軟件測試網 http://www.kjueaiud.com/