delphi程序，自定义函数，用递归计算斐波拉契数列前50项之和
答案:2 悬赏:20 手机版
解决时间 2021-01-04 22:19
- 提问者网友：绫月
- 2021-01-04 04:45
delphi程序，自定义函数，用递归计算斐波拉契数列前50项之和
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-01-10 06:21
function FibonacciSum(Index: Integer): Integer;
//子函数，求斐波拉契数列
function Fibonacci(Index: Integer): Integer;
begin
if (Index = 1) or (Index = 2) then
Result := 1
else
Result := Fibonacci(Index - 2) + Fibonacci(Index - 1);
end;
begin
if Index = 0 then
Result := 0
else
Result := FibonacciSum(Index - 1) + Fibonacci(Index);
end;
//子函数，求斐波拉契数列
function Fibonacci(Index: Integer): Integer;
begin
if (Index = 1) or (Index = 2) then
Result := 1
else
Result := Fibonacci(Index - 2) + Fibonacci(Index - 1);
end;
begin
if Index = 0 then
Result := 0
else
Result := FibonacciSum(Index - 1) + Fibonacci(Index);
end;
全部回答
- 1楼网友：蕴藏春秋
- 2021-01-10 07:11
……
var aa="1,1";
var arr=[];
var temp=0;
function count(n){
if(!n || n < 2){
n=2; // 婓那波契数列从第三项开始，等于前二项之和
}
if(n > 20){ // 限制计算到20级，避免死循环。
document.getelementbyid("a5").value=aa;
return;
}
arr=aa.split(",");
temp=parseint(arr[n-2])+parseint(arr[n-1]);
aa=aa+","+temp;
document.getelementbyid("a5").value=aa;
n++;
count(n);
}
……
运行 count() ，
得到计算结果：1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯