vb计算π的近似值直到10的-6次方为止-搜答案-神马作文网

公式:π/4=1-1/3+1/5-1/7+...求值n=0sn=0an=1dountilABS(an)

LoopWhileAbs(a)10^(-7)或LoopUntilAbs(a)

1、循环前面加一条：pi=02、i=-1改为i=-1*i

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

#include<stdio.h>main(){ longi,a=1,b=3; doublep=1,t=1,t1=0; while(t-t1>=1e-8

DimsAsInteger,nAsintegerDimtAssingle,piAssingles=1:t=1:n=1:pi=0DoWhileAbs(t)>0.0001pi=pi+tn=n+2s=-st

你给的公式不对!应该是π/2＝2^2/1*3×4^2/3*5×.×（这个公式求的精度不高!代码如下：DimPI1AsDoubleDimPI2AsDoubleDimTempAsDoubleDimnAsD

#include#includevoidmain(){floats=0;inti;floatt=1;for(i=1;;i=i+2){if(fabs(t/i)

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

你的问题主要是类型的问题.因为a是int型的,你在计算的时候不转型成浮点型是不对的（1/a=0）因此你要写成：pi=pi+1.0/(2*a-1);pi=pi-1.0/(2*a-1);还有判断条件：wh

主要用的是循环语句.

你把doublej=1;改成doublej=-1;就对了.你看公式里,1/3这一项是负的,所以你i=3的时候j应该是-1,不是1.

QNAN不是乱码,是程序写错了,已经有人写了基本正确的程序,不重复了.QNAN产生的原因：没有初值,计算0/0,负数开平方等明显错误时.其实,这种算法算到天荒地老也很难算出π.再问：Ϊʲô�ҵĳ��

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()a=1Don=n+1m=2*n-1s=s+a*1/ma=-aLoopUntilAbs(1/m)pi=4*sPrint"pi="&piEndSu

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

num=m*(4/(2*n-1));改为num=m*(4.0/(2*n-1));试试再问：！！！！！哦哦，还要把m=pow((-1),(n+1));放到循环里面

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

PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*