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

Posted 2022-07-21 圆周率

篇首语：天行健，君子以自强不息。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi编写圆周率模拟器[2]相关的知识，希望对你有一定的参考价值。

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

　　程序首先在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/25031

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

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