用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/08/12 13:12:05
用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,
![用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句](/uploads/image/z/3022138-10-8.jpg?t=%E7%94%A8%E5%85%AC%E5%BC%8F%3A%CF%80%2F4%3D1-1%2F3%2B1%2F5-1%2F7%7E%E6%B1%82%CF%80%E7%9A%84%E5%80%BC%2C%E7%9B%B4%E5%88%B0%E6%9C%80%E5%90%8E%E4%B8%80%E9%A1%B9%E5%B0%8F%E4%BA%8E10%5E-6%E4%B8%BA%E6%AD%A2.%E7%94%A8VB%E4%B8%AD%E7%9A%84%28Do+while%EF%BC%89%E8%AF%AD%E5%8F%A5)
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为止.