vb求π近似值作业帮
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/21 13:55:56
公式:π/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
大体伪代码框架如下y=int(x);if(y/2*2==y)even()elseodd()另,这算法好傻,最快判断奇偶的话,只需要看整数的最后1位是0还是1就行了(因为计算机用的是二进制数)
解题思路:本题主要考查用二分法求方程的近似解的方法和步骤,属于基础题.解题过程:令f(x)=2x-x3,因为f(1)>0,f(2)<0所以零点在(1,,2)之间利用计算器计算f(1.5)&
PrivateSubForm_click()p1=1p2=1p3=p1i=1DoWhileAbs(p3)>0.0000001'p3要取绝对值p2=(-1)*p2p3=p2/(i+1)p1=p1+p3'
PrivateSubForm_Load()Fori=1To50n=1Forj=2Toin=n*jNexts=s+1/nNextMsgBoxsEndSu
Private Sub Command1_Click() '如果是题目要求用循环镶嵌个人觉得应该这样写
#include<stdio.h>void main (void){int i,j,k=-1;float p=0.0;for (i=
假设级数表达式为f(i),随i值的变化而减小,则可在循环时利用级数f(i)和f(i-1)的差值来与10^-6比较,当两次计算的结果满足dpp=Abs(dc)b=b*-1n=n+1mv=rad^(2*(
新建一个工程Form1最上方添加一个Label1然后在下方添加一个Label2,标题为:"请输入结果:"后面添加一个Text1(TextBox)Label1下方添加一个Label3
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
PrivateSubForm_Click()Dimi&,PI#Doi=i+1PI=PI+(-1)^(i-1)/(2*i-1)LoopUntil1/iPI=PI*4Print"π=";PIEndSu
PrivateSubCommand1_Click()DimNAsDouble,PiAsDoublePi=2ForN=1To1000Pi=Pi*(2*N)^2/((2*N-1)*(2*N+1))IfN=
用spss回归了一下,A=24.335n=0.943,不过貌似误差稍大,凑合用吧.可能是你数据不好
PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*
我认为你最好采用函数的方法取得近似值,因为在单元格格式里取得的近似值比如一位小数看起来是一位,但它参与计算是还是按原来的值计算的,〔=[round(A1再问:再详细一点