vb求∏的近似值.直到最后一项绝对值小于0.0001为止.公式：∏/4≈1-1/3+1/5-1/7+.程序中问号怎么填dim s _数学解答

vb求∏的近似值.直到最后一项绝对值小于0.0001为止.公式：∏/4≈1-1/3+1/5-1/7+.程序中问号怎么填
dim s as integer,n as integer
dim t as single,pi as single
s=1:t=1:n=1:pi=?
do whlie asb(t) >0.0001
pi=pi+?
n=n+2
s=-s
t=s/n
loop
print pi*?

人气：106 ℃　时间：2020-03-31 05:57:53

解答

Dim s As Integer,n As integerDim t As single,pi As singles = 1:t = 1:n = 1:pi = 0Do While Abs(t) > 0.0001pi = pi + tn = n + 2s = -st = s / nLoopPrint pi * 4pi为什么为0？最后为什么是pi*4呢？第一次循环结束pi=1第二次循环结束pi=1-1/3第三次循环结束pi=1-1/3+1/5…………直到1/n<0.0001结束循环根据你提供的表达式，pi最后必须*4啊，因为循环体里面算出来的只是pi/4