下面的程序是利用公式π=4—4/3+4/5—4/7+4/9—4/11+…计算π的近似值: Pvivate Sub Command l_Click() Dim PI As Double,X As Double,k As Long,sign As In

admin2018-09-19  28

问题 下面的程序是利用公式π=4—4/3+4/5—4/7+4/9—4/11+…计算π的近似值:
Pvivate Sub Command l_Click()
    Dim PI As Double,X As Double,k As Long,sign As Integer
    sign=1
    k:l
    PI=0
    Do
        X=sign*4/(2*k-1)
        PI=PI+X
        k=k+l
        sign=______________
    Loop Until Abs(X)<0.000001
    Print PI
End Sub
    在横线处应填写的是(     )。

选项 A、sign+l
B、-sign
C、X
D、k

答案B

解析 根据公式π=4-4/3+4/5-4/7+4/9-4/11+…可知sign是作为符号翻转的,即一次+下一次就为一,因此空缺处应该填-sign,这样就可使符号循环一次翻转一次。
转载请注明原文地址:https://kaotiyun.com/show/DmFp777K
0

最新回复(0)