计算的近似值的一个公式是π/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 n
B.把n=20000改为n=20000000
C.把For k=3 To n改为For k=3 To n Step 2
D.把PI=1改为P1=0
第1题:
1、 下面的程序段执行后,a[2]的值为() int[] a=new int[] { 7, 4, 8, 3, 6 }; int n = 5; for(int i=0; i<n-1; i++) { for(int j=0; j<n-i-1; j++) { if(a[j]>a[j+1]) { int temp=a[j]; a[j]=a[j+1]; a[j+1]=temp; } } }
A.7
B.4
C.3
D.6
第2题:
在Fibonacci问题中,若a(0)=1, a(1)=1, a(n+1)=a(n)+a(n-1), 则a(n)的通项公式是什么?
A.a(n)=(1/√5)*(((1+√5)/2)^n-((1-√5)/2)^n)
B.a(n)=(1/√5)*(((1+√5)/2)^n+((1-√5)/2)^n)
C.a(n)=(1/√5)*(((1-√5)/2)^n-((1+√5)/2)^n)
D.a(n)=(1/√5)*(((1+√5)/2)-((1-√5)/2))^n
第3题:
在Fibonacci问题中,若a(0)=0, a(1)=1, a(n+1)=a(n)+a(n-1), 则a(n)的通项公式是什么?
A.a(n)=(1/√5)*(((1+√5)/2)^n-((1-√5)/2)^n)
B.a(n)=(1/√5)*(((1+√5)/2)^n+((1-√5)/2)^n)
C.a(n)=(1/√5)*(((1-√5)/2)^n-((1+√5)/2)^n)
D.a(n)=(1/√5)*(((1+√5)/2)-((1-√5)/2))^n
第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
第5题:
4、在Fibonacci问题中,若a(0)=1, a(1)=1, a(n+1)=a(n)+a(n-1), 则a(n)的通项公式是什么?
A.a(n)=(1/√5)*(((1+√5)/2)^n-((1-√5)/2)^n)
B.a(n)=(1/√5)*(((1+√5)/2)^n+((1-√5)/2)^n)
C.a(n)=(1/√5)*(((1-√5)/2)^n-((1+√5)/2)^n)
D.a(n)=(1/√5)*(((1+√5)/2)-((1-√5)/2))^n