niusouti.com

计算π的近似值的一个公式是π/4=1-1/3+1/5_1/7+…+(-1)n-11/(2n-1)。某人编写下面的程序用此公式计算并输出π的近似值:Private Sub Command1_Click()PI=1Sign=113=20000For k=3 To nsign=-signPI=PI+sign/kNext kPrint PI*4End sub运行后发现结果为3.22751,显然,程序需要修改。下面修改方案中正确的是A.把For k=3To n改为For k=1 To nB.把U=20000改为n=

题目

计算π的近似值的一个公式是π/4=1-1/3+1/5_1/7+…+(-1)n-11/(2n-1)。某人编写下面的程序用此公式计算并输出π的近似值:

Private Sub Command1_Click()

PI=1

Sign=1

13=20000

For k=3 To n

sign=-sign

PI=PI+sign/k

Next k

Print PI*4

End sub

运行后发现结果为3.22751,显然,程序需要修改。下面修改方案中正确的是

A.把For k=3To n改为For k=1 To n

B.把U=20000改为n=20000000

C.把For k:3 To n改为For k=3 To n Step 2

D.把PI=1改为PI=0


相似考题
参考答案和解析
正确答案:C
解析:在π/4的近似求解公式中,分母是等差增加的,第一项分母可看作是1,第二项是3,第三项是7,依次类推。所以循环变量k应该每次增加2,故选项C)正确。程序中2n-一1是用k来控制的,(-1)n-1是通过sign来控制的。程序从首次运行结果是:1-1/3,继而不断增项。
更多“计算π的近似值的一个公式是π/4=1-1/3+1/5_1/7+…+(-1)n-11/(2n-1)。某人编写下面的程序用此公式计 ”相关问题
  • 第1题:

    编写程序求解方程 x + 1 / x = 4 的解(可以是近似解,可以是其中一个解)的方法是:

    A.在程序中直接输入方程让计算机求解

    B.写出求解公式,让计算机按照求解公式求解

    C.先给一个任意解,然后按照左右变化的趋势,逐步逼近真实解

    D.此方程无解


    C

  • 第2题:

    使用for循环编写程序实现以下功能:计算1-1/3+1/5-1/7+...-1/99+......,结果保留2位小数。


    截图

  • 第3题:

    【求π的值】 利用如下公式计算π,当通项的绝对值小于等于1e-6时停止计算,结果保留10位小数。 π/4 = 1 - 1/3 + 1/5 - 1/7 ...


    (1)3-2n (2) 试题分析:解:(1)∵ ∴ (2分) ∴ (5分) (2) (7分) ∴ ∴ 或 (舍) (10分) 点评:主要是考查了等差数列的通项公式以及求和的运用,属于基础题。

  • 第4题:

    下面程序段是求π的近似值,当第n项的绝对值小于1e-5时终止计算。 π/4=1-1/3+1/5-1/7+... Dim n As Long, s As Single Dim t As Single, pi As Single n = 1: t = 1: s = 0 Do While abs(t) > ______ s = s + t n = n + 1 t = (-1)^(n + 1)/(2*n-1) Loop


    11

  • 第5题:

    函数fun的功能是:根据以下公式计算并返回S,n通过形参传入,n的值大于等于0。划线处应填________。 S=1-1/3+1/5-1/7+…1/(2*n-1) float fun(int n) { float s=0.0,w,t,f=-1.0; int i; for(i=0;i<n;i++) { f=-f; w=f/(2*i+1); s+=w; } ____________; }


    p=p*i;p=p/i