用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/10/07 00:11:06
用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,
Dim pi As Double
Dim S As Double
Dim i As Double
Dim Vi As Double
i = 0
S = 0
Do While True
Vi = 1 / (2 * i + 1) '第i项的值:1,1/3,1/5,1/7.
If Vi < 0.0000001 Then Exit Do '如果最后一项小于10^-6,则退出do,结束计算,此处我设定为10 -7次方,越大结果越准确
If (i Mod 2) = 0 Then
S = S + 1 / (2 * i + 1) '偶数项加上
Else
S = S - 1 / (2 * i + 1) '奇数项减去
End If
i = i + 1
DoEvents '避免假死循环
Loop
pi = 4 * S
MsgBox pi
Dim S As Double
Dim i As Double
Dim Vi As Double
i = 0
S = 0
Do While True
Vi = 1 / (2 * i + 1) '第i项的值:1,1/3,1/5,1/7.
If Vi < 0.0000001 Then Exit Do '如果最后一项小于10^-6,则退出do,结束计算,此处我设定为10 -7次方,越大结果越准确
If (i Mod 2) = 0 Then
S = S + 1 / (2 * i + 1) '偶数项加上
Else
S = S - 1 / (2 * i + 1) '奇数项减去
End If
i = i + 1
DoEvents '避免假死循环
Loop
pi = 4 * S
MsgBox pi
用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句
用vb求pi/4 = 1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
用π/4=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10*6为止.
c语言用π=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10^-6为止
用π=1-1/3+1/5-1/7+……公式求π的近似值,直到最后一项的绝对值小于1e-6为止
c语言用π=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10^-7为止
C语言 只补充程序 用Do While 循环求π的近似值直到最后一项分数小于1e-6为止!
vb求∏的近似值.直到最后一项绝对值小于0.0001为止.公式:∏/4≈1-1/3+1/5-1/7+.程序中问号怎么填
用π/4=1-1/3+1/5-1/7+1/9.公式求π的值,直到最后一项的绝对值小于10的-6次方为止
计算π的近似值.公式如下:π/4=1-1/3+1/5-1/7+……,直到最后一项的绝对值小于10-6为止.
c语言题:用π/4=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10e-6为止.
用公式 π/4 = 1-1/3+1/5-1/7……,编程序求π的近似值,直到最后一项的绝对值小于10-4为止.