用Delphi编写圆周率模拟器

作者凌众技术来源互联网浏览发布时间 2012-01-14

    Label6.Caption:=IntToStr(Image1.Canvas.PenPos.X);
    Label7.Caption:=IntToStr(Image1.Canvas.PenPos.Y);
end
else
begin
    // 超出这个区域的点都在圆外设为黄色
    Image1.Canvas.Pen.Color:=clyellow;
    b:=StrToInt(Label2.Caption);
    Label2.Caption:=IntToStr(b+1);
end;

// 画点（长为1像素的直线）
Image1.Canvas.MoveTo(i,ii);
Image1.Canvas.LineTo(i,ii+1);

// 计算pi的值
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.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 2

分享到：更多

你可能对下面的文章感兴趣

上一篇: Delphi高精度计时方法下一篇: Delphi初学者参考

关于用Delphi编写圆周率模拟器的所有评论

随机推荐