1樓：匿名使用者
program gxd;
varf1,f2,tot,i,tmp:longint;
begin
f1:=1;
f2:=1;
tot:=2;
for i:=3 to 20 do
begin
tmp:=f1+f2;
inc(tot,tmp);
f1:=f2;
f2:=tmp;
end;
writeln(tot);
readln;
end.
2樓：匿名使用者
peogram shulie;
varsum,a,b,i:integer;
begin
i:=0; a:=1;b:=0; sum:=0;
repeat
begin
sum:=sum+a;
a:=a+b;
b:=a;
i:=i+1;
end;
until i=20;
writeln(sum:5);
readln;
end.
自己編的 可能有疏忽之處 諒解！
3樓：匿名使用者
program ex;
var a,b,i,c:integer;
begin
a:=1;
b:=1;
writeln(a);
writeln(b);
for i:=3 to 20 do
begin
c:=a+b;
a:=b;
b:=c;
writeln(c);
end;
readln;
end.
4樓：匿名使用者
var i,a,b,c,s:integer;begin a;=0; b:=1; for i:
=1 to 20 do begin s;=s+b; c:=a; a:=c; b:
=a+c; end; write(s);end;
用pascal 求斐波那契數列前20項，並以每行5個數的格式輸出 用while迴圈
5樓：匿名使用者
vara:array[1..20]of longint;
s:longint;
begin
a[1]:=1;a[2]:=1;s:=2;//初始賦值while s<20 do
begin
inc(s);
a[s]:=a[s-1]+a[s-2];//第三項等與前兩項之和end;
s:=0;
for s:=1 to 20 do
begin
write(a[s],' ');//輸出if s mod 5 =0 then writeln;//每5個一換行
end;
end.
希望能幫到你！
6樓：匿名使用者
varnow,i,j,n,m:longint;
begin
now:=2;write(1:5,1:5);n:=1;m:=1;
while now<20 do
begin
i:=n;n:=m;m:=i+n;write(m:5);
inc(now);if now mod 5=0 then writeln;
end;
end.
斐波那契數列求和公式
7樓：小談說劇
1、奇數項求和
2、偶數項求和
3、平方求和
在數學上，斐波那契數列以如下被以遞推的方法定義：f(1)=1，f(2)=1, f(n)=f(n-1)+f(n-2)（n>=3，n∈n*）在現代物理、準晶體結構、化學等領域，斐波納契數列都有直接的應用。
為此，美國數學會從1963年起出版了以《斐波納契數列季刊》為名的乙份數學雜誌，用於專門刊載這方面的研究成果。
8樓：薄博逢飛星
的通項公式
為an=√5/5[(1+√5)/2]^n-√5/5[(1-√5)/2]^n，設bn=√5/5[(1+√5)/2]^n，cn=√5/5[(1-√5)/2]^n
則an=bn-cn，是
公比為(1+√5)/2的
等比數列
，是公比為(1-√5)/2的等比數列，
bn的前n項和bn=√5/5[(1+√5)/2]*(1-[(1+√5)/2]^n)/(1-[(1+√5)/2])
=(3√5+5)([(1+√5)/2]^n-1)/10
cn的前n項和cn=√5/5[(1-√5)/2]*(1-[(1-√5)/2]^n)/(1-[(1-√5)/2])
=(3√5-5)([(1-√5)/2]^n-1)/10
所以an的前n項和an=a1+a2+…+an=b1-c1+b2-c2+…+bn-cn=bn-cn
=(3√5+5)([(1+√5)/2]^n-1)/10-(3√5-5)([(1-√5)/2]^n-1)/10
=/10
9樓：匿名使用者
並不是所有的數列都可以求。
但是fibanocci數列是可以求通項公式的。
a(n+2)=a(n+1)+an
如果能做到：
a(n+2)-ka(n+1)=q(a(n+1)-kan)就好辦了。
這應該沒問題的，待定係數求k,q.
10樓：
利用特徵方程的辦法（這個請自行參閱組合數學相關的書）。
設斐波那契數列的通項為an。
（事實上an = (p^n - q^n)/√5，其中p = (√5 - 1)/2, q = (√5 + 1)/2。但這裡不必解它）
然後記sn = a1 + a2 + ... + an
由於an = sn - s(n-1) = a(n-1) + a(n-2) = s(n-1) - s(n-2) + s(n-2) - s(n-3)
= s(n-1) - s(n-3)
其中初值為s1 = 1, s2 = 2, s3 = 4。
所以sn - 2s(n-1) + s(n-3) = 0
從而其特徵方程是
x^3 - 2x^2 + 1 = 0
即(x - 1)(x^2 - x - 1) = 0
不難解這個三次方程得
x1 = 1
x2 = p
x3 = q
（p, q值同an中的p, q）。
所以通解是
sn = c1 * x1^n + c2 * x2^n + c3 * x3^n
其中c1，c2，c3的值由s1，s2，s3的三個初值代入上式確定。我就不算了。
11樓：呵關羽
挺複雜的乙個式子，使用積分簡單計算出來。
這裡也說不清楚，唉……
python 求斐波那契數列前20項和
12樓：風_南
定義：斐波那契數列（fibonacci sequence），又稱**分割數列，指的是這樣乙個數列：0、1、1、2、3、5、8、13、21、34、……在數學上，斐波納契數列以如下被以遞迴的方法定義：
f（0）=0，f（1）=1，f（n）=f(n-1)+f(n-2)（n≥2，n∈n*）
方法一：用遞迴方法求出每一項
方法二：上面的方法，有很多重複計算，非常消耗效能，下面改進下：
13樓：匿名使用者
a, b = 0 ,1
for _ in range(20):
a, b = b, a+b
print(a,' ')
斐波那契數列前20項和的答案是多少
14樓：聽不清啊
若前3項是0，1，1的話，前20項的和=10946
若前3項是1，1，2的話，前20項的和=17711
怎麼會有小數的呢？
15樓：匿名使用者
32.6603ju[p8u[uo;
vb中的斐波那契數列 前20項取值總和問題謝謝了，大神幫忙啊
16樓：匿名使用者
斐波那契數列前三項分別是0、1、1，你只加了第二項或第三項 所以才會少1 dim a&(20) a(1) = 0: a(2) = 1 for i = 3 to 20 a(i) = a(i - 2) + a(i - 1) b = a(i) + b next i for i = 1 to 20 print right(space(7) & a(i), 8); if i mod 10 = 0 then print next i b = b + a(2) msgbox b 追問： 我加的是第一項和第二項， 不是加的第二項和第三項，請不要用陣列去給我解答，我還沒學到陣列呢 回答：
dim d as long, a as long, s as long, c as integer d = 0: a = 1: b = 1:
s = 2 print d print a print b for i = 2 to 18 c = a + b a = b: b = c s = s + c print c next i msgbox "斐波拉契數列的錢二十項的和為：" & s, vbinformation, "資訊"
斐波那契數列的通項公式
17樓：戢瀅瀅
斐波那契數列：0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, ...
如果設f(n）為該數列的第n項（n∈n*），那麼這句話可以寫成如下形式：
顯然這是乙個線性遞推數列。
(如上，又稱為「比內公式」，是用無理數表示有理數的乙個範例。)
注：此時 方法一：利用特徵方程（線性代數解法）
線性遞推數列的特徵方程為： 解得 ， . 則 ∵ ∴ 解得
方法二：待定係數法構造等比數列1（初等代數解法）
設常數 ， .
使得則 ，
時，有……
聯立以上n-2個式子，得：
∵ ，上式可化簡得：
那麼……
（這是乙個以 為首項、以 為末項、 為公比的等比數列的各項的和）。
， 的解為
則方法三：待定係數法構造等比數列2（初等代數解法）
已知a1=1,a2=1,an=a(n-1)+a(n-2)(n>=3），求數列的通項公式。
解 ：設an-αa(n-1)=β（a(n-1)-αa(n-2））。
得α+β=1。
αβ=-1。
構造方程x^2-x-1=0，解得α=(1-√5)/2，β=(1+√5)/2或α=(1+√5)/2，β=(1-√5)/2。
所以。an-(1-√5)/2*a(n-1)=(1+√5)/2*(a(n-1)-(1-√5)/2*a(n-2))=[(1+√5)/2]^(n-2)*(a2-(1-√5)/2*a1)`````````1。
an-(1+√5)/2*a(n-1)=(1-√5)/2*(a(n-1)-(1+√5)/2*a(n-2))=[(1-√5)/2]^(n-2)*(a2-(1+√5)/2*a1)`````````2。
由式1，式2，可得。
an=[(1+√5)/2]^(n-2)*(a2-(1-√5)/2*a1)``````````````3。
an=[(1-√5)/2]^(n-2)*(a2-(1+√5)/2*a1)``````````````4。
將式3*(1+√5)/2-式4*(1-√5)/2，化簡得an=(1/√5)*。
方法四：母函式法。
對於斐波那契數列，有a(1)=a(2)=1,a(n)=a(n-1)+a(n-2)(n>2時)
令s(x)=a(1)x+a(2)x^2+……+a(n)x^n+……。
那麼有s(x)*(1-x-x^2)=a(1)x+[a(2)-a(1)]x^2+……+[a(n)-a(n-1)-a(n-2)]x^n+……=x
.因此s(x)=x/(1-x-x^2).
不難證明1-x-x^2=-[x+(1+√5)/2][x+(1-√5)/2]=[1-(1-√5)/2*x][1-(1+√5)/2*x].
因此s(x)=(1/√5)*.
再利用式1/(1-x)=1+x+x^2+x^3+……+x^n+……
於是就可以得s(x)=b(1)x+b(2)x^2+……+b(n)x^n+……
其中b(n)=(1/√5)*.
因此可以得到a(n)=b(n)==(1/√5)*
斐波那契數列求和，斐波那契數列求和程式怎麼編寫？
1 fig.6.30 fig06 30.cpp 2 testing the recursive fibonacci function.3 include 4 using std cout 5 using std cin 6 using std endl 78 unsigned long fibona...
斐波那契數列什麼時候會學，斐波那契的斐波那契數列是什麼時候提出的
斐波那契數列的發明者，是義大利數學家列昂納多 斐波那契 leonardo fibonacci 生於公元1170年，卒於1250年，籍貫是比薩。他被人稱作 比薩的列昂納多 1202年，他撰寫了 算盤全書 liber abacci 一書時提出的 斐波那契數列和花瓣的聯絡什麼 時間發現的 這裡對斐波那契數...
vb中輸出斐波那契數列的前20項
介面加乙個按鈕,直接複製執行 private sub command1 click dim a 1 to 20 as integerfor i 1 to 20 if i 1 or i 2 thena i 1 else a i a i 1 a i 2 end if print i,a i next i...
用vb輸出斐波那契數列前20項的所有偶數
銷聲匿跡 private sub form click dim d 100000 i as longd 0 0 d 1 1 for i 2 to 20 d i d i 1 d i 2 next i for i 0 to 20 print d i space 5 if i mod 5 0 then p...
如何用VB編斐波那契數列列出前20項而且是用迴圈語句FOR
a1 1 a2 1 debug.print a1 debug.print a2 for i 3 to 20 a3 a1 a2 debug.print a3 a1 a2 a2 a3 next 如果要儲存數列，就把每次要輸出的內容 debug.print 依次放到陣列裡面 今天計算機課剛剛提交的作業，肯...