用Delphi編寫圓周率模擬器[1]

　　圓周率π是個古老的東西早在多年前祖沖之已將其值精確到小數點後位而如今通過計算機程序已能算到十億位之多！我是個圓周率愛好者這個愛好至少是出於對這個無理數的熱衷我不但可以背誦到小數點後位而且還收藏著從網上找到幾個計算π的程序你有興趣可以到我的小站nihgyeahnet找一下

　　一模擬器原理

　　本程序並使用計算π值的算法她只是一個概率模擬即在邊長為的正方形內隨機產生多個點將點以圓弧為界分開統計由於點的個數很多直至幾乎布滿整個區域此時點的個數就可以看作就是它所在區域的面積可以得到如下推導

　　藍色區內點個數總個數≈藍色面積總面積
　　藍色區內點個數總個數≈圓面積/總面積
　　藍色區內點個數總個數≈π××/×
　　π≈ ×藍色區內點個數/總個數

　　當然點的位置會重復所以結果與π值是有差別的不過當點足夠多時可以看到一個非常接近的結果

　　二程序設計

　　打開Delphi 首先按照圖設計窗體

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25030.html