作业帮 > 综合 > 作业

编写函数func(n)求Fibonacci数列(1 1 2 3 5 8.)的第17个数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/24 06:27:18
编写函数func(n)求Fibonacci数列(1 1 2 3 5 8.)的第17个数
要求 使用函数的递归调用 求15分钟以内给出答案
var n:integer;
function fblq(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;
b:=1;
if n>2
then
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end
else c:=1;
fblq:=c;
end;
begin
readln(n);
writeln(fblq(n));
end.