fibonacci数列vb

clc,cleara(1)=1;a(2)=1;n=input('n=');k=2;whilea(k)

dimf()asdoublen=inputbox("in","NO.")redimf(n)asdoublef(1)=1f(2)=1fori=3tonf(i)=f(i-1)+f(i-2)nextprin

PrivateSubForm_Click()Dima(1To40)AsLongFori=1To40Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-2)+a(i-1)EndIfPrin

1,1,2,3,5,8.即从第三项开始,每一项都是前2项之和即an+2=an+1+an它是一个各项为整数但通项是用无理数表示的数列,an=五分之根5×[(（根5＋1)/2)^n-((根5-1)/2)^

PrivateSubCommand1_Click()Dima(1To20)AsIntegerFori=1To20Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-1)+a(i-2)En

#includeintmain(){intf1=1,f2=1;inti;for(i=1;i

a=1b=1c=1fori=4to100d=a+b+cforj=2todif(imodj=0)thenbreak;endifnextifjdthenprinti&"issushu"endifa=bb=

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

OptionExplicitDimf(40)AsLongPrivateSubCommand1_Click()DimiAsByteDimsAsLongf(1)=1f(2)=1s=2Print"No1:"

著名的Fibonacci数列,定义如下f(1)=1,f(2)=1,f(n)=f(n-1)+f(n-2),n>2用文字来说,就是斐波那契数列由0和1开始,之后的斐波那契系数就由之前的两数相加.首几个斐波

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

回答过了啊……Dimf1,f2,f3AsLongDimi,jAsIntegerf1=1f2=1j=3        &n

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

public int fib(int n){    if(n<2){    &nbs

楼上的程序会慢死人的.给一个非递归实现.functionFibonacci(byvalnasLong)asLongdiml1aslong,l2aslong,l3aslongl1=1l2=1ifn

编程首先计算Fibonacci数列1,1,2,3,5,8,13,21,.的前n项（n不超过40）存入一维整型数组f中,再按%12d的格式输出每项的值,每6项换一行.说明：（1）输入数列项n,在scan

g[n_]:=Fibonacci[n]/Fibonacci[n+1];r[n_]:=Log[Fibonacci[n]];lisfn=Table[Fibonacci[n],{n,10}];lisgn=T

fibonacci数列：1123581321345589...即f(1)=f(2)=1f(n)=f(n-1)+f(n-2)n>2首项应该是1,看来是wmjdhr记错了

用c++编写的fibonacci数列,通向公式如下：F1=F2=1；F(n)=F(n-1)+F(n-2)(n>=3);相关程序如下：#include#includevoidmain(){longint

下面的程序可以修改宏定义N的值来确定输出的数的个数#include#defineN30voidmain(){unsignedlonginta[N];inti,j;a[0]=1;a[1]=1;for(i