delphi 怎么用递归写Fibonacci函数
答案:1 悬赏:80 手机版
解决时间 2021-06-05 07:24
- 提问者网友：抽煙菂渘情少年
- 2021-06-04 12:04
delphi 怎么用递归写Fibonacci函数
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-06-04 12:34
function fib(n:integer):longword;
begin
if(n=1)or(n=2) then fib:=1
else fib:=fib(n-1)+fib(n-2);
end;
var i:integer;
begin
for i:=1 to 10 do
writeln(fib(i));
readln;
end.
begin
if(n=1)or(n=2) then fib:=1
else fib:=fib(n-1)+fib(n-2);
end;
var i:integer;
begin
for i:=1 to 10 do
writeln(fib(i));
readln;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯