vb代码 求π的近似值，要求运算至通项t=（-1）^（n-1） /2n-1的绝对值小于10^-6
vb代码求π的近似值，要求运算至通项t=（-1）^（n-1）/2n-1的绝对值小于10^-6结束。求补充后的代码和运行结果...
vb代码 求π的近似值，要求运算至通项t=（-1）^（n-1）
/2n-1的绝对值小于10^-6结束。求补充后的代码和运行结果 展开
/2n-1的绝对值小于10^-6结束。求补充后的代码和运行结果 展开
1个回答
展开全部
Dim n As Long, t As Single, P As Single
n = 1: P = 0
Do
t = (-1) ^ n / (1 - 2 * n)
P = P + t
n = n + 1
Loop While Abs(t) > 1 / 10 ^ 6
Print 4 * P
返回 3.141598
更多追问追答
追问
你好 题目说t=（-1^n-1）/2n-1
你的代码是（-1）^n为什么呢
我试了改成n-1的 结果是负 你能帮我解答一下吗谢谢
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
