作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/06/25 08:29:47
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*?
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 = 0
Do While Abs(t) > 0.0001
pi = pi + t
n = n + 2
s = -s
t = s / n
Loop
Print pi * 4
再问: pi为什么为0? 最后为什么是pi*4呢?
再答: 第一次循环结束pi=1 第二次循环结束pi=1-1/3 第三次循环结束pi=1-1/3+1/5 ………… 直到1/n