㈠ 斐波那契數
搞不懂你到底在寫什麼。以下是最簡單的寫法：
#include "stdafx.h"
#include <iostream>
using namespace std;
int Fibonacci(int N)
{
if(N <= 2)return 1;
else{
int a=1,b=1,c=3,temp;
while(c<=N){
temp=a;
a=a+b;
b=temp;
c++;
}
return a;
}
}
int main()
{
int F;
cout<<"Enter the fibonacci number you want: ";
cin>>F;
cout<<Fibonacci(F)<<endl;
return 0;
}
你對Fibonacci()的定義沒有什麼問題，但是這個演算法很沒有效率，第1000個以上的項一分鍾之內都算不出來，如果在300以內還好。
㈡ 斐波那契數列的演算法，vb
Dim st As String = ""
Dim a(100)
a(1) = 0 : a(2) = 1
For i = 3 To 100
a(i) = a(i - 2) + a(i - 1)
Next i
For i = 1 To 10
st = st & a(i) & " "
If i Mod 10 = 0 Then st = st & vbCrLf
Next i
TextBox6.Text = st
Public Function f(ByVal n As Integer) As Integer
Dim res As Integer
If n = 1 Or n = 2 Then
res = 1
End If
If n = 3 Then
res = 2
End If
If n > 3 Then
res = f(n - 1) + f(n - 2)
End If
Return res
End Function
㈢ 斐波那契數列的演算法
#include "stdio.h"
main()
{
long f1,f2;
int i;
f1=f2=1;
for(i=1;i<=20;i++)
{
printf("%12ld %12ld",f1,f2);
if(i%2==0) printf("\n"); /*控制輸出，每行四個*/
f1=f1+f2; /*前兩個月加起來賦值給第三個月*/
f2=f1+f2; /*前兩個月加起來賦值給第三個月*/
}
}
原題是:有一對兔子從出生後第三個月起每個月都生一對兔子,小兔子長到第三個月後每個月又生一對兔子,假如兔子都不死,問每個月的兔子總數為多少?>
㈣ 斐波那契數列遞歸演算法
var count=0;
var fib=function(n){
console.log("第"+(++count)+"次調用fib");
if(n==0){
return 0;
}
else if(n==1||n==2){
return 1;
}else if(n>2){
return fib(n-1)+fib(n-2);
}
}
fib(6);
㈤ 小於一百的斐波那契數的演算法
即斐波那契數列,「斐波那契數列」的發明者，是義大利數學家列昂納多·斐波那契（Leonardo Fibonacci，生於公元1170年，卒於1240年。籍貫大概是比薩）。他被人稱作「比薩的列昂納多」。1202年，他撰寫了《珠算原理》(Liber Abaci)一書。他是第一個研究了印度和阿拉伯數學理論的歐洲人。他的父親被比薩的一家商業團體聘任為外交領事，派駐地點相當於今日的阿爾及利亞地區，列昂納多因此得以在一個阿拉伯老師的指導下研究數學。他還曾在埃及、敘利亞、希臘、西西里和普羅旺斯研究數學。
斐波那契數列指的是這樣一個數列：1，1，2，3，5，8，13，21……
這個數列從第三項開始，每一項都等於前兩項之和。它的通項公式為：(1/√5)*{[(1+√5)/2]^n - [(1-√5)/2]^n}【√5表示根號5】
很有趣的是：這樣一個完全是自然數的數列，通項公式居然是用無理數來表達的。
【該數列有很多奇妙的屬性】
比如：隨著數列項數的增加，前一項與後一項之比越逼近黃金分割0.6180339887……
還有一項性質，從第二項開始，每個奇數項的平方都比前後兩項之積多1，每個偶數項的平方都比前後兩項之積少1。
如果你看到有這樣一個題目：某人把一個8*8的方格切成四塊，拼成一個5*13的長方形，故作驚訝地問你：為什麼64＝65？其實就是利用了斐波那契數列的這個性質：5、8、13正是數列中相鄰的三項，事實上前後兩塊的面積確實差1，只不過後面那個圖中有一條細長的狹縫，一般人不容易注意到。
如果任意挑兩個數為起始，比如5、-2.4，然後兩項兩項地相加下去，形成5、-2.4、2.6、0.2、2.8、3、5.8、8.8、14.6……等，你將發現隨著數列的發展，前後兩項之比也越來越逼近黃金分割，且某一項的平方與前後兩項之積的差值也交替相差某個值。
斐波那契數列的第n項同時也代表了集合{1,2,...,n}中所有不包含相鄰正整數的子集個數。
【斐波那契數列別名】
斐波那契數列又因數學家列昂納多·斐波那契以兔子繁殖為例子而引入，故又稱為「兔子數列」。
斐波那契數列
一般而言，兔子在出生兩個月後，就有繁殖能力，一對兔子每個月能生出一對小兔子來。如果所有兔都不死，那麼一年以後可以繁殖多少對兔子？
我們不妨拿新出生的一對小兔子分析一下：
第一個月小兔子沒有繁殖能力，所以還是一對;
兩個月後，生下一對小兔民數共有兩對;
三個月以後，老兔子又生下一對，因為小兔子還沒有繁殖能力，所以一共是三對;
－－－－－－
依次類推可以列出下表：
經過月數：0123456789101112
兔子對數：1123581321345589144233
表中數字1，1，2，3，5，8－－－構成了一個數列。這個數列有關十分明顯的特點，那是：前面相鄰兩項之和，構成了後一項。
這個數列是義大利中世紀數學家斐波那契在＜算盤全書＞中提出的，這個級數的通項公式，除了具有a(n+2)=an+a(n+1)/的性質外，還可以證明通項公式為：an=1/√[（1＋√5/2) n-(1-√5/2) n](n=1,2,3.....）
【斐波那挈數列通項公式的推導】
斐波那契數列：1，1，2，3，5，8，13，21……
如果設F(n)為該數列的第n項(n∈N+)。那麼這句話可以寫成如下形式：
F(1)=F(2)=1,F(n)=F(n-1)+F(n-2) (n≥3)
顯然這是一個線性遞推數列。
通項公式的推導方法一：利用特徵方程
線性遞推數列的特徵方程為：
X^2=X+1
解得
X1=(1+√5)/2, X2=(1-√5)/2.
則F(n)=C1*X1^n + C2*X2^n
∵F(1)=F(2)=1
∴C1*X1 + C2*X2
C1*X1^2 + C2*X2^2
解得C1=1/√5，C2=-1/√5
∴F(n)=(1/√5)*{[(1+√5)/2]^n - [(1-√5)/2]^n}【√5表示根號5】
通項公式的推導方法二：普通方法
設常數r,s
使得F(n)-r*F(n-1)=s*[F(n-1)-r*F(n-2)]
則r+s=1, -rs=1
n≥3時，有
F(n)-r*F(n-1)=s*[F(n-1)-r*F(n-2)]
F(n-1)-r*F(n-2)=s*[F(n-2)-r*F(n-3)]
F(n-2)-r*F(n-3)=s*[F(n-3)-r*F(n-4)]
……
F(3)-r*F(2)=s*[F(2)-r*F(1)]
將以上n-2個式子相乘，得：
F(n)-r*F(n-1)=[s^(n-2)]*[F(2)-r*F(1)]
∵s=1-r，F(1)=F(2)=1
上式可化簡得：
F(n)=s^(n-1)+r*F(n-1)
那麼：
F(n)=s^(n-1)+r*F(n-1)
= s^(n-1) + r*s^(n-2) + r^2*F(n-2)
= s^(n-1) + r*s^(n-2) + r^2*s^(n-3) + r^3*F(n-3)
……
= s^(n-1) + r*s^(n-2) + r^2*s^(n-3) +……+ r^(n-2)*s + r^(n-1)*F(1)
= s^(n-1) + r*s^(n-2) + r^2*s^(n-3) +……+ r^(n-2)*s + r^(n-1)
（這是一個以s^(n-1)為首項、以r^(n-1)為末項、r/s為公差的等比數列的各項的和）
=[s^(n-1)-r^(n-1)*r/s]/(1-r/s)
=(s^n - r^n)/(s-r)
r+s=1, -rs=1的一解為 s=(1+√5)/2, r=(1-√5)/2
則F(n)=(1/√5)*{[(1+√5)/2]^n - [(1-√5)/2]^n}
㈥ 斐波那契數列演算法的源程序
代碼如下。。。我測試過了。。。
public class Fibonacci {
/**
* 計算Fibonacci數列,使用遞歸
* @param n 計算第n個Fibonacci數列值
* @return 第n個Fibonacci數值
*/
public static int fibonacci(int n){
if(n<=1)
return n;
else
return fibonacci(n-1) + fibonacci(n-2);
}
public static void main(String[] args) {
for(int i = 0;i<=5;i++)
System.out.print(fibonacci(i)+",");
}
}
希望對你有幫助。。。。仍有問題可以HI我。。。
㈦ 斐波那契數列演算法
Private Function f(ByVal n As Integer) As Double'斐波那契的n項的值
Dim r As Double
If n = 0 Then
r = 0
End If
If n = 1 Then
r = 1
End If
If n > 1 Then
r = f(n - 1) + f(n - 2)
End If
f = r
End Function