1+2+3+5+8+13+...=?的算法

[homel]

如题，这个要用到递归算法，请高手指点一下！

[toury]

呵呵，费那波契数字

[toury]

<%
Dim sum
Call fnbq(0, 1)

Function fnbq(ByVal i, ByVal j)
sum = i + j
response.write sum&"<br>"
Call fnbq(j, sum)
End Function

%>

[archu]

给你一个不用递归的笨算法

//number是指总共有多少个元素
static int sum(int number)
{
int[] myArray = new int[number];
int result = 0;

if (number >= 1)
{
myArray[0] = 1;
}
if (number >= 2)
{

myArray[1] = 2;
}

for (int i = 2; i < number; i++)
{
myArray[i] = myArray[i - 1] + myArray[i - 2];
}



for (int i = 0; i < number; i++)
{
result += myArray[i];
}
return result;

}

[toury]

哦，没看清题目，你是要求和啊，呵呵
<%
Dim sum
Call fnbq(0, 1)
response.write sum

Function fnbq(ByVal i, ByVal j)
if sum>10000 then exit function'测试用，不然的话..........
t = i + j
sum = sum + t
Call fnbq(j, t)
End Function

%>

[NaNorth]

貌似不用递归，直接判断一下就可以了。

[「已注销」]

int fun(int n){
if(n==1||n==2)return 1;
else return　f(n)=f(n-1)+f(n-2),
}

[lanbiner]

<%
i=1
j=0
do while i<101
j=j+i
i=i+1
loop
response.write j
%>