计算π的近似值的一个公式是π/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=20000000C.把For k:3 To n改为For k=3 To n Step 2D.把PI=1改为PI=0

计算π的近似值的一个公式是π/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


相关考题:

计算的近似值的一个公式是π/4=1-(1/3)+(1/5)-(1/7)+…+(-1)n-1(1/2n -1)。 某人编写下面的程序用此公式计算并输出的近似值: Private Sub Cornmand1 Click( ) P1=1 Sign=1 n=20000 For k=3 To r Sign=-Sign PI=PI+SiRn/k Next k Print PI*4 End Sub 运行后发现结果勾3.22751,显然,程序需要修改。下面修改方案中正确的是( )。A.把For k=3 To n改为For k=1 To nB.把n=20000改为n=20000000C.把For k=3 To n改为For k=3 To n Step 2D.把PI=1改为P1=0

( 26 )计算二的近似值的一个公式是某人编写下面的程序用此公式计算并输出 π 的近似值:Private Sub Comand1_Click ()PI = 1Sign = 1n=20000For k=3 To nSign=-Sign/kPI=PI+Sign/kNext kPrint PI*4End Sub运行后发现结果为 3.22751 ,显然,程序需要修改。下面修改方案中正确的是A )把 For k=3 To n 改为 For k=1 To nB )把 n=20000 改为 n=20000000C )把 For k=3 To n 改为 For k=3 To n Step 2D )把 PI=1 改为 PI=0

补充程序Ccon012.C,该程序中用公式计算圆周率的近似值。

下列给定程序中,函数fun()的功能是:用下面的公式求π的近似值,直到最后一项的绝对值小于指定的数(参数num)为止。π/4≈1-1/3+1/5-1/7+…例如,程序运行后,输入0.0001,则程序输出3.1414。请改正程序中的错误,使它能得出正确的结果。注意:不要改动main函数,不得增行或删行,也不得更改程序的结构。试题程序:include <math.h>include <stdio.h>float fun(float num){ int s;float n,t, pi;t=1 ;pi=0; n=1; s=1;/**************found***************/while (t>=num){pi=pi+ t;n=n+2;s=-s;/**************found**************/t=s% n;}pi=pi*4;return pi;}main (){ float n1, n2;clrscr ();printf ("Enter a float number: ");scanf ("%f", n1);n2=fun (n1);print f (" %6.4 f\n ", n2);}

编写程序求解方程 x + 1 / x = 4 的解(可以是近似解,可以是其中一个解)的方法是:A.在程序中直接输入方程让计算机求解B.写出求解公式,让计算机按照求解公式求解C.先给一个任意解,然后按照左右变化的趋势,逐步逼近真实解D.此方程无解

下面程序段是求π的近似值,当第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

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

函数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; } ____________; }

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