vb求∏的近似值.直到最后一项绝对值小于0.0001为止.公式:∏/4≈1-1/3+1/5-1/7+.程序中问号怎么填
问题描述:
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*?
答
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