vb用公式=1-1 3 1 5-1 7求近似值
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/27 05:45:37
没有具体数据,无法测试,但主体可用如下方法:Dimp1AsDouble‘用于储存Φi-1的值Dimp2AsDouble’用于储存Φi-2的值PrivateSubForm_Click()DimiAsIn
PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值
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
若要出现没有规律的数字,只要把这些数字添加到数组即可实现,参考代码如下:PrivateSubCommand1_Click()'循环变量DimiAsInteger'保存随机数DiminitNumAsIn
DimpiAsDoubleDimSAsDoubleDimiAsDoubleDimViAsDoublei=0S=0DoWhileTrueVi=1/(2*i+1)'第i项的值:1,1/3,1/5,1/7.
我帮你改了一下,你看看把再问:答案是接近3.14么、图上看不出来、貌似是3.19吗?能把程序复制发来么、我运行一下,多谢
这意思?ConstaAsLong=1Printa再问:需要加const?那不就变成了用户自定义类型了吗我记得我以前问过,怎么使用直接常量怎么用.他说直接输入常量名,就可以了.后来我试了真的可以,可是现
PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction
不好意思我好久没用vb了大概如下dimcassingledimxassinglex=inputbox("输入x")c=5*(x-32)/9printc\我以前把vb删了不能试你试试吧
DimaAsDoubleDimsAsDoubleDimeAsSingleDimtAsSinglea=1s=1e=1DoWhile1/s>=10^(-0.4)s=s*at=1/se=e+ta=a+1Lo
条件不够吧?当求T(0,0,1)时,后面要用到:T(0,0,0)+R*(T(1,0,0)+T(-1,0,0)+T(0,1,0)+T(0,-1,0)-4T(0,0,0))下标还有负数,而且5个数,4个不
代码如下:OptionExplicitPrivateSubCommand1_Click()MsgBoxP(2,2)EndSubFunctionP(ByValnAsInteger,ByValxAsDou
要求已知圆的半径R,内接多边形的边数n,则公式可以如下:ConstPI=3.141593s=n*R^2*Sin(2pi/n)/2
DimSAsDouble,IAsInteger,TAsIntegerT=1ForI=1To100S=S+T*1/(2*I-1)T=-TNextMsgBoxS*4你的问题应该还有一个条件,就是计算到什么
PrivateSubCommand1_Click()a=Val(InputBox("a="))x=0:y=aDoWhileAbs(y-x)>=0.00001x=yy=(x+a/x)/2LoopPrin
PrivateSubCommand1_Click()a=1Don=n+1m=2*n-1s=s+a*1/ma=-aLoopUntilAbs(1/m)pi=4*sPrint"pi="&piEndSu
PrivateSubCommand1_Click()DimNAsDouble,PiAsDoublePi=2ForN=1To1000Pi=Pi*(2*N)^2/((2*N-1)*(2*N+1))IfN=
看不见公式