VB求圆周率∏的近似值.公式为 = 1- + - …+(-1)(n+1)× ,直到最后一项的绝对值小
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/09/20 13:50:08
VB求圆周率∏的近似值.公式为 = 1- + - …+(-1)(n+1)× ,直到最后一项的绝对值小
应该是 Pi/4=1-1/3+1/5-1/7+…+(-1)^(n-1)/(2*n-1)吧,
Private Sub Form_Load()
Dim Pi As Single,i As Long
Form1.AutoRedraw = True
i = 1
Do
Pi = Pi + (-1) ^ (i - 1) / (2 * i - 1)
i = i + 1
Loop Until 1 / (i * 2 - 1) < 10 ^ (-6)
Pi = 4 * Pi
Print Pi
End Su
Private Sub Form_Load()
Dim Pi As Single,i As Long
Form1.AutoRedraw = True
i = 1
Do
Pi = Pi + (-1) ^ (i - 1) / (2 * i - 1)
i = i + 1
Loop Until 1 / (i * 2 - 1) < 10 ^ (-6)
Pi = 4 * Pi
Print Pi
End Su
VB求圆周率∏的近似值.公式为 = 1- + - …+(-1)(n+1)× ,直到最后一项的绝对值小
求圆周率∏的近似值.公式为= 1-+-…+(-1)(n+1)×,直到最后一项的绝对值小于0.000001 为止
用vb求pi/4 = 1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
vb求∏的近似值.直到最后一项绝对值小于0.0001为止.公式:∏/4≈1-1/3+1/5-1/7+.程序中问号怎么填
怎样用公式4/r约等于1-1/3+1/5-1/7+.求r(的为圆周率)的近似值,直到最后一项的绝对值小于十的负六次方
VB求e的近似值利用e^x的近似公式计算e(直到最后一项小于10^-6)e^x=1+x/1!+x^2/2!+……x^n/
用π=1-1/3+1/5-1/7+……公式求π的近似值,直到最后一项的绝对值小于1e-6为止
输入X,利用公式e^x=1+x+x^2/2!+x^3/3!+…求e^x的近似值,直到最后一项绝对值小于-10^-6
c语言用π=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10^-7为止
c语言用π=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10^-6为止
用π/4=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10*6为止.
计算π的近似值.公式如下:π/4=1-1/3+1/5-1/7+……,直到最后一项的绝对值小于10-6为止.