应该是 Pi/4=1-1/3+1/5-1/7+…+(-1)^(n-1)/(2*n-1)吧,
Private Sub Form_Load()
Dim Pi As Single,i As Long
Form1.AutoRedraw = True
i = 1
Do
Pi = Pi + (-1) ^ (i - 1) / (2 * i - 1)
i = i + 1
Loop Until 1 / (i * 2 - 1) < 10 ^ (-6)
Pi = 4 * Pi
Print Pi
End Su
应该是 Pi/4=1-1/3+1/5-1/7+…+(-1)^(n-1)/(2*n-1)吧,
Private Sub Form_Load()
Dim Pi As Single,i As Long
Form1.AutoRedraw = True
i = 1
Do
Pi = Pi + (-1) ^ (i - 1) / (2 * i - 1)
i = i + 1
Loop Until 1 / (i * 2 - 1) < 10 ^ (-6)
Pi = 4 * Pi
Print Pi
End Su
最新问答: 喂 出来 、文中故事是否真实!你如何理解这个洞! y=2sinx^2的值域 (2014•松江区三模)一个底部为正方形,底面积为2×10-2米2的薄壁柱形容器放在水平桌面中央,容器高为0.12米,内 a,b,c,为非零自然数.1/a÷2/7=1/b×3/5=1/c,下面正确的是( ) 1.a>b>c 2.a>c>b 3 用所给单词的适当形式填空.1.we expect her _________(arrive)tomorrow.2.He don‘t___(发出很大声音).they'are sleeping 既然说活化分子的有效碰撞才会导致化学键断裂, 一个角比它的余角的1/3少10°,求这个角的补角的度数. A~D都是初中化学中的常见物质,其中A、B两物质中元素种类相同,且有如图所示转化关系(反应条件、其他反应物及多余产物均已 —she sings!so mang young people are crazy for her.A how B wh 在下列四种物理现象之中,能说明同一种介质对不同单色光的折射率不同的是( ) I'd rather that you left right away Tea ___ in the south of China. 求四角梯形锥体积计算公式就是四面斜,上下两面是大小不一样的长方形,应该是台体吧,如果不是台体,求计算公式 左边三点水右边一个像颐一样的字 是什么 what did you see_when you got there? 若一个整数为两位数,它等于其数字和的8倍,如果互换原两位整数的个位数字和十位数字的位置 高中物理 光的衍射在光屏上形成的光斑是光的干涉原理吗 高数判断奇偶性1-e^(-x) ,x≤0f(x)={e^(x)-1,x>0解法:1-e^-(-x) ,-x≤0 f(-x 二价铁加什么物质转化成三价铁,三价铁加什么物质转化成二价铁?