用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亲自模拟一下π的计算吧！

　　三、小结

　　虽然程序并没有采用圆周率的算法，但能通过随机数对π进行逼近，而由无数点描成的美妙圆弧让我们叹为观止。其实，这样的思想可以用于许多场合，比如对某个数学定理或者自然规律（彩票？）进行模拟，希望这样的思路对您有所启发。

文章来源于领测软件测试网 https://www.ltesting.net/