vb 利用公式 计算圆周率的近似值 精度为

第一空pi=0第二空pi=pi+t第三空pi=pi*4这是利用了一个求pi的公式：pi/4=1-1/3+1/5-1/7.

PrivateSubCommand1_Click()x=Text1.Texts=1a=1Dok=k+1a=a*-1*x^2/((2*k-1)*(2*k))s=s+aLoopUntilAbs(a)Tex

应该是Pi/4=1-1/3+1/5-1/7+…+（-1）^(n-1)/(2*n-1)吧,PrivateSubForm_Load()DimPiAsSingle,iAsLongForm1.AutoRedr

1.#include2.#include3.#include4.usingnamespacestd;5.6.intmain()7.{8.constintMAX_TIMES=200000000;9.sr

Pi约等于180*sinα／α,α越小,结果越接近Pi.所以用windows的计算器就可以实现了．

PrivateSubForm_click()p1=1p2=1p3=p1i=1DoWhileAbs(p3)>0.0000001'p3要取绝对值p2=(-1)*p2p3=p2/(i+1)p1=p1+p3'

Private Sub Command1_Click()   '如果是题目要求用循环镶嵌个人觉得应该这样写   

假设级数表达式为f(i),随i值的变化而减小,则可在循环时利用级数f(i)和f(i-1)的差值来与10^-6比较,当两次计算的结果满足dpp=Abs(dc)b=b*-1n=n+1mv=rad^(2*(

我用的是Vc++6.0#include"iostream.h"voidmain(){floatpi=0,i;inta=1;for(i=1;i

不知楼主要几位的,一般地小数点后取两位3.14取四位3.1416取七位3.1415927我给你个一百位的,应该够了,卫星上天才用三十位,注意要四舍五入3.14159265358979323846264

DimsignAsInteger,aAsLong,piAsDoublesign=-1Fori=1To100000a=2*i-1sign=-1*signpi=pi+(1/a)*signNextpi=pi

Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc

PrivateSubCommand1_Click()x=InputBox("请输入x：")s=1fact=1Doi=i+1fact=fact*it=x^i/facts=s+tLoopUntilt

⑴1.04×1.01=1.0*1.0=1.00⑵1.03×1.01=1.0*1.0=1.00⑶1.03×0.98=1.0*1.0=1.00⑷1.04×0.98=1.0*1.0=1.00⑸7÷1.02=

PrivateSubForm_Click()Dimi&,PI#Doi=i+1PI=PI+(-1)^(i-1)/(2*i-1)LoopUntil1/iPI=PI*4Print"π=";PIEndSu

#includeintmain(){doublepi=0;inti,k=1;for(i=0;i<1000000;++i){pi+=1.0/(2*i+1)*k;k=-k;}printf("%f\n",p

.14*16/2*16/2*1.5/100*2=6.0288立方米3.14*（8*8-（8-0.015）*（8-0.015））*16=3.14*（64-63.760226）*16=12.046296立

我傻了.最后不是5 是2 楼主你担待点

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

'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：Private Sub Command1_Click()