用Delphi编写圆周率模拟器[1]

圆周率π是个古老的东西早在多年前祖沖之已将其值精确到小数点后位而如今通过计算机程序已能算到十亿位之多！我是个圆周率爱好者这个爱好至少是出于对这个无理数的热衷我不但可以背诵到小数点后位而且还收藏着从网上找到几个计算π的程序你有兴趣可以到我的小站nihgyeahnet找一下

一模拟器原理

本程序并使用计算π值的算法她只是一个概率模拟即在边长为的正方形内随机产生多个点将点以圆弧为界分开统计由于点的个数很多直至几乎布满整个区域此时点的个数就可以看作就是它所在区域的面积可以得到如下推导

蓝色区内点个数总个数≈蓝色面积总面积

蓝色区内点个数总个数≈圆面积/总面积

蓝色区内点个数总个数≈π××/×

π≈ ×蓝色区内点个数/总个数

当然点的位置会重复所以结果与π值是有差别的不过当点足够多时可以看到一个非常接近的结果

二程序设计

打开Delphi 首先按照图设计窗体

[] []