VB计算圆周率的方法

原创 2007年10月11日 16:02:00

VB计算圆周率的方法 

方法有二:

1.  利用迭代公式进行计算,如下:

     Private Sub Command1_Click()

       Dim pi As Double, n As Long
       pi = 2
       For n = 1 To 10000
          pi = pi * ((2 * n) / (2 * n - 1)) * ((2 * n) / (2 * n + 1))
      Next n

    End Sub

2. 利用VB函数进行计算,如下:

    Private Sub Command1_Click()


       Form1.Caption = 4 * Atn(1)   '> Ant()是VB内置反正切函数

   End Sub

VB计算圆周率

采用普遍的傅立叶级数展开方法 pi=2+1/3*(2+2/5*(2+3/7*(2+4/9*(2+5/11  .....))))))输入:需计算的圆周率位数,理论精度约30万位 Add a comman...
  • northwolves
  • northwolves
  • 2006-06-06 09:30:00
  • 4900

VB计算圆周率(二)

采用普遍的傅立叶级数展开方法pi = 3 + (1 * 1) / (2 * 3 * 4) * [ 3 + (3*3)/(4*5*4) *[ 3 + (5*5)/(6*7*4) * [ 3 + (7*7...
  • northwolves
  • northwolves
  • 2006-06-07 09:15:00
  • 3618

<em>vb</em>2005设计计算<em>圆周率</em>

应用<em>vb</em>2005设计计算<em>圆周率</em>,选择n的取值,得到不同的<em>圆周率</em>近似值 综合评分:0 收藏评论举报 所需: 3积分/C币 下载个数: 4 开通VIP 立即下载 ...
  • 2018年04月06日 00:00

VB计算圆周率的方法

VB计算圆周率的方法 方法有二:1.  利用迭代公式进行计算,如下:     Private Sub Command1_Click()       Dim pi As Double, n As Lon...
  • ANZI57066381
  • ANZI57066381
  • 2007-10-11 16:02:00
  • 1058

用概率模拟法求圆周率pi

用概率模拟法求圆周率pi package a; /*概率模拟发求圆周率*/ public class MyA { public static void main(String[] args) {...
  • u011925500
  • u011925500
  • 2014-03-10 19:44:46
  • 1350

精确的圆周率计算vb

  • 2009年08月19日 14:44
  • 3KB
  • 下载

计算<em>圆周率</em> 源代码

能够快速计算<em>圆周率</em>,帮助你探究<em>圆周率</em>。文件中含有源码。... naofu0821 2017-05-07 14:33:38 垃圾<em>VB</em>,超慢 根本不好用 登录后才能评论 计算<em>圆周率</em>-CSDN下载 时间...
  • 2018年04月04日 00:00

圆周率的计算公式

圆周率古人计算圆周率,一般是用割圆法.即用圆的内接或外切正多边形来逼近圆的周长.阿基米德用正96边形得到圆周率小数点后3位的精度;刘徽用正3072边形得到5位精度;鲁道夫用正262边形得到了35位精度...
  • lwaif
  • lwaif
  • 2015-10-15 09:55:14
  • 625

圆周率π的值 & 用蒙特卡洛法求π近似值

π = 2 + 2/3 + 2/3*2/5 + 2/3*2/5*3/7 + ... 圆周率的值 π = 3.14159 26535 89793 23846 26433 83279 50288 4197...
  • zhaori
  • zhaori
  • 2006-03-06 21:44:00
  • 6648

利用蒙特卡洛算法求圆周率

Monte-Carlo PI
  • nomad2
  • nomad2
  • 2011-04-07 19:52:00
  • 5565
收藏助手
不良信息举报
您举报文章:VB计算圆周率的方法
举报原因:
原因补充:

(最多只允许输入30个字)