Private Sub Form_click() p1 = 1 p2 = 1 p3 = p1 i = 1 Do While Abs(p3) > 0.0000001'p3要取绝对值 p2 = (-1) * p2 p3 = p2 / (i + 1) p1 = p1 + p3 '这里p2改为p3 i = i + 1 Loop Print p1 * 4End Su...哪个公式不对?程序算出的值是2.7725
请问数学公式是什么?派/4=1-1/3+1/5-1/7+1/9……Private Sub Form_click()
p1 = 1
p2 = 1
p3 = p1
i = 1
Do While Abs(p3) > 0.0000001'p3要取绝对值
p2 = (-1) * p2
p3 = p2 / (2 * i + 1) '''''''' '改这个就成功了
p1 = p1 + p3 '这里p2改为p3
i = i + 1
Loop
Print p1 * 4
End Sub
VB上机题用多项式求出圆周率的近似值
VB上机题用多项式求出圆周率的近似值
Private Sub Form_click()
p1 = 1
p2 = 1
p3 = p1
i = 1
Do While p3 > 0.0000001 *
p2 = (-1) * p2
p3 = p2 / (i + 1) *
p1 = p1 + p2 *
i = i + 1
Loop
Print p1 * 4
End Sub
打*号的又错,求改正!
Private Sub Form_click()
p1 = 1
p2 = 1
p3 = p1
i = 1
Do While p3 > 0.0000001 *
p2 = (-1) * p2
p3 = p2 / (i + 1) *
p1 = p1 + p2 *
i = i + 1
Loop
Print p1 * 4
End Sub
打*号的又错,求改正!
数学人气:789 ℃时间:2020-03-26 20:15:30
优质解答
我来回答
类似推荐
猜你喜欢
- 1甲、乙两公司各为“希望工程”捐款200000元.已知乙公司比甲公司人均多捐20元,且乙公司的人数比甲公司的人数少20%,问甲、乙两公司人均捐款各为多少元………请用一元一次方程解
- 2Everyone except them ____ good at ____.A.are running B.is running
- 3有一根边长为65厘米的正方形纸,要在上面画长120米、宽90米的长方形操场平面图、比例合适的是()
- 4英语介绍自己的房间
- 5谁知道never too old to learn的意思?
- 6天街小雨润如酥,草色遥看近却无.这句诗描写的是什么季节?
- 7what suggestion did you put forward at the meeting?That we ______another power station in the area
- 84只不同的鸟住在4个不同的笼子里,现在让这4只鸟都飞进不是自己的笼子,有多少种不同的飞法(请详细说明解
- 9已知关于x的一元二次方程 x²+4x+m-1=0.
- 10高度每增加1千米,气温就下降2℃,现在地面气温是10℃,那么7千米高空的气温是( ) A.-14℃ B.-24℃ C.-4℃ D.14℃