搜搜做题作业网VB计算π的近似值,精确值0.000001
来源：学生作业帮助网 编辑：作业帮 时间：2024/06/15 23:09:09
#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
9.985=（10-0.02）5=105-C51•104×0.02+C52•103•0.022-C53•102•0.023+C54101•0.024-0.025≈105-C51•104×0.02+C5
Private Sub Command1_Click() '如果是题目要求用循环镶嵌个人觉得应该这样写
利用函数的近似值算法进行计算：F(x0+△x)=F(x0)+F'(x0)△x设F(x)=x^10则其导数：F'(x)=10x^91.003=1+0.003.取x0=1,△x=0.003f(1+0.00
0.925
//#include#include#includemain(){inti,j,n;doublea=0,b=1;doublemin=1e-4;doublefunction(doublex);doubl
比如圆面积A（A=PI*r*r）,一定小于外切正多边形面积S(n),也一定大于内接正多边形面积s(n).设e是一个正数,选取合适的n,总可以作出比A+e更小的S(n),也可以作出比A-e更大的s(n)
极限值,也是精确值
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
PrivateSubForm_Click()Dimi&,PI#Doi=i+1PI=PI+(-1)^(i-1)/(2*i-1)LoopUntil1/iPI=PI*4Print"π=";PIEndSu
456600的近似值（精确到万位）是：460000；
5X^2+2X-1=0由求根公式X=(-2±√24)/10=(-1±√6)/5√6=2.449所以X1=(-1+2.449)/5=0.29X1=(-1-2.449)/5=-0.69X^2-3X+1=0
num=m*(4/(2*n-1));改为num=m*(4.0/(2*n-1));试试再问：！！！！！哦哦，还要把m=pow((-1),(n+1));放到循环里面
设f(x)=sinx,则f'(x)=cosx令x0=π/6,Δx=-π/180,则f(x0)=1/2,f'(x0)=√3/2∴sin29º≈1/2(√3/2)(-π/180)≈0.48485
'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：Private Sub Command1_Click()
楼主用计算器就行了,答案是楼上那位说的“0.157”,我用计算器用过.希望能被楼主采纳!
PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*