求数列前20项之和:1 2,2 3,3 5,5 8,--

vb具体语法不会啊.大致用pascal写一下把a=1;b=1;whilei再问：你这里么用wend哇！我先试试看你能不能做出来！再答：pascal里的循环语句和vb不一样，没有wend。。。我用vb写

奇数项的通项是3n,偶数项的通项是2^n.前八项里有4个奇数项和4个偶数项,代入求和公式就可以得到答案：60

a=1//建立分母初始值a=1b=2//建立分子初始值b=2sum=0//建立和值的初始值term=b/a//定义数列的初始项fori=1to20//根据数列项数定义运算次数sum=sum+term/

后一项=1+前一项的倒数inti;doublea=2,b,sum;sum=a;for(i=1;i

for(inti=0;i

因为an=（5/9）×((10^n)-1))所以sn=（5/9）×((10^1)-1))+（5/9）×((10^2-1))+…………+（5/9）×((10^n)-1))=（5/9）×[(10^1+10

#includeusingnamespacestd;intsum(){doublei=1,j=2;doubles,m,dTemp=j/i,dSum=dTemp;for(intk=1;k{s=i+j;m

an=(5/9)(10^n-1)接下来等比数列求和an=(5/9)10^n-(5/9)bn=an+(5/9)=(5/9)10^nSbn=(50*10^n-50)/81=San+(5/9)nSan=(5

设该等差数列的首项为a1，公差为d，由已知得10a1+10×9d2＝31020a1+20×19d2＝1220，解得a1＝4d＝6．∴此数列的前n项和公式为Sn＝4n+n(n−1)2×6＝3n2+n．

因为前四项之和为40,最后四项之和为80所以a1+an=(40+80)/4=30Sn=n(a1+an)/2=30n/2=210n=14再问：a1+an=(40+80)/4=30这一步不太懂......

Private Sub Command1_Click()Dim a As Long, b As Long, c

（1）前五项为：4,7,10,13,18（2）等差数列（3）首项加末项×项数除以2=（4+61）*20/2=650再问：前5项是4,7,10,13,18？再答：呃，第五项是16，打错了。。。嘻嘻

vara:array[1..40]oflongint;i:integer;sum:longint;begina[1]:=0;a[2]:=0;a[3]:=1;sum:=1;fori:=4to30dobe

#includeintmain(){inti=0;floatsum=0;intn;intx[n],y[n];printf("请输出计算的项数:");scanf("%d",&n);x[0]=2;x[1]

前m项之和为5050即1+2+3+4+.+m=5050该数列为等差数列所以用求和公式前m项之和=m*(1+m)/2=5050解得m=100

写一函数intFibonacci(intn){if(n==1||n==2){return1;}returnFibonacci(n-1)+Fibonacci(n-2);}

d=(a25-a10)/(25-10)=-3an=a10+(n-10)d=23-3(n-10)=53-3na1=50令an>=0,53-3n>＝0,n0,a18

C.4016规律200720081-2007-2008-120072008……前6项一组循环

错位相减法,Sn=(-1)^n*(3n/2-1/4)-1/4

a_n=2(n-12)当数列中出现正数后数列递增所以在n=12之前（包括12）当n=11时,Sn=(-22+(-2))*11*1/2=-132当n=12时情况是一样的,因为a_12=0第二题：等比数列