程序 递归 Pascal
答案:2 悬赏:20 手机版
解决时间 2021-11-17 18:31
- 提问者网友：雾里闻花香
- 2021-11-16 21:52
程序 递归 Pascal
最佳答案
- 五星知识达人网友：摆渡翁
- 2021-11-16 22:10
是从第零项开始还是第一项？
var t:longint;
function ff(n:longint):longint;
begin
if (n=0)or(n=1) then exit(1) //因为斐波拉契数列的前两项都是一
else f(n):=f(n-1)+f(n-2); //那个，斐波拉契数列的每一项都为前两项之和
end;
begin
t:=20;
writeln(ff(t));
end.
var t:longint;
function ff(n:longint):longint;
begin
if (n=0)or(n=1) then exit(1) //因为斐波拉契数列的前两项都是一
else f(n):=f(n-1)+f(n-2); //那个，斐波拉契数列的每一项都为前两项之和
end;
begin
t:=20;
writeln(ff(t));
end.
全部回答
- 1楼网友：長槍戰八方
- 2021-11-16 22:27
function Fibonacci(n:longint):longint;
begin
if (n=1) or (n=2) then exit(1)
else exit(Fibonacci(n-1)+Fibonacci(n-2));
end;
begin
writeln(Fibonacci(20));
end.
begin
if (n=1) or (n=2) then exit(1)
else exit(Fibonacci(n-1)+Fibonacci(n-2));
end;
begin
writeln(Fibonacci(20));
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯