知识大全用Delphi编写圆周率模拟器

Posted 2022-07-14 圆周率

篇首语：努力吧，只有站在足够的高度才有资格被仰望。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi编写圆周率模拟器相关的知识，希望对你有一定的参考价值。

用Delphi编写圆周率模拟器 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

圆周率π是个古老的东西早在多年前祖冲之已将其值精确到小数点后位而如今通过计算机程序已能算到十亿位之多！我是个圆周率爱好者这个爱好至少是出于对这个无理数的热衷我不但可以背诵到小数点后位而且还收藏着从网上找到几个计算π的程序你有兴趣可以到我的小站找一下　　　　一模拟器原理　　　　本程序并使用计算π值的算法她只是一个概率模拟即在边长为的正方形内随机产生多个点将点以圆弧为界分开统计由于点的个数很多直至几乎布满整个区域此时点的个数就可以看作就是它所在区域的面积可以得到如下推导　　　　蓝色区内点个数总个数≈蓝色面积总面积　　蓝色区内点个数总个数≈圆面积/ 总面积　　蓝色区内点个数总个数≈π× × / × 　　π≈ ×蓝色区内点个数/总个数　　　　当然点的位置会重复所以结果与π值是有差别的不过当点足够多时可以看到一个非常接近的结果　　　　二程序设计　　　　打开Delphi 首先按照图设计窗体　　 >　　程序首先在Image 控件区域内画一个边长为的正方形作为程序的演示窗口故FormCreate事件如下　　　　procedure TForm FormCreate(Sender: TObject);　　begin　　// 画亮绿色的正方形演示框　　Image Canvas Brush Color:=clBlack;　　Image Canvas FillRect(Rect( ));　　Image Canvas Pen Color:=cllime;　　Image Canvas Rectangle( );　　DoubleBuffered := True;　　end;　　接着放入一个Timer实现点的绘制以及π的计算　　　　procedure TForm Timer Timer(Sender: TObject);　　var　　a b i ii:longint;　　pi piok:single;　　begin　　// 随机产生坐标点　　i:=random( );　　ii:=random( );　　　　if (i*i+ii*ii< ) then　　begin　　// 以为半径的圆内的点设为蓝色　　Image canvas Pen Color:=claqua;　　a:=StrToInt(Label Caption);　　Label Caption:=IntToStr(a+ );　　//显示当前点的坐标　　Label Caption:=IntToStr(Image Canvas PenPos X);　　Label Caption:=IntToStr(Image Canvas PenPos Y);　　end　　else　　begin　　// 超出这个区域的点都在圆外设为黄色　　Image Canvas Pen Color:=clyellow;　　b:=StrToInt(Label Caption);　　Label Caption:=IntToStr(b+ );　　end;　　　　// 画点（长为像素的直线）　　Image Canvas MoveTo(i ii);　　Image Canvas LineTo(i ii+ );　　　　// 计算pi的值　　pi:=( *(StrToInt(Label Caption))/(StrToInt(Label Caption)+StrToInt(Label Caption)));　　Label Caption:=FloatToStr(pi);　　// Label 显示的是最接近真实pi的值　　piok:=StrToFloat(Label Caption);　　//得出最接近的圆周率值 piok　　if (abs(pi ))<(abs(piok )) then　　Label Caption:=FloatToStr(pi);　　end;　　　　最后加入两个SpeedButton作为开始和暂停按钮代码分别是Timer Enabled:=true;和Timer Enabled:=false; 好了程序这样就完成了赶快按下F 亲自模拟一下π的计算吧！　　　　三小结　　　　虽然程序并没有采用圆周率的算法但能通过随机数对π进行逼近而由无数点描成的美妙圆弧让我们叹为观止 cha138/Article/program/Delphi/201311/24655

知识大全 用Delphi编写圆周率模拟器

知识大全用Delphi编写圆周率模拟器