vb计算π的近似值 显示当n=50的结果
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/04 23:50:42
PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值
LoopWhileAbs(a)10^(-7)或LoopUntilAbs(a)
应该是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
你给的公式不对!应该是π/2=2^2/1*3×4^2/3*5×.×(这个公式求的精度不高!代码如下:DimPI1AsDoubleDimPI2AsDoubleDimTempAsDoubleDimnAsD
Private Sub Command1_Click() '如果是题目要求用循环镶嵌个人觉得应该这样写
#include#includevoidmain(){ints;floatn,t,pi;t=1;pi=0;n=1.0;s=1;while(fabs(t)>1e-5){pi=pi+t;n=n+2;s=-
DimaAsDoubleDimsAsDoubleDimeAsSingleDimtAsSinglea=1s=1e=1DoWhile1/s>=10^(-0.4)s=s*at=1/se=e+ta=a+1Lo
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
PrivateSubForm_Click()Dimi&,PI#Doi=i+1PI=PI+(-1)^(i-1)/(2*i-1)LoopUntil1/iPI=PI*4Print"π=";PIEndSu
#include <iostream.h>double fun(double n){return 2*n*2*n/((2*n-1) *&
num=m*(4/(2*n-1));改为num=m*(4.0/(2*n-1));试试再问:!!!!!哦哦,还要把m=pow((-1),(n+1));放到循环里面
Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re
PrivateSubCommand1_Click()DimNAsDouble,PiAsDoublePi=2ForN=1To1000Pi=Pi*(2*N)^2/((2*N-1)*(2*N+1))IfN=
'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*
//1.#include#includeusingnamespacestd;intmain(){intk=1;doublem=1,n=0,pi=0;while(fabs(m)>(1e-6)){m=k/