输出Fibonacci数列前40项

最新推荐文章于 2024-03-30 19:21:09 发布

原创最新推荐文章于 2024-03-30 19:21:09 发布 · 2.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function #c

delphi作品专栏收录该内容

9 篇文章

订阅专栏

博客展示了两段C语言代码。一段通过循环实现斐波那契数列的输出，另一段定义了斐波那契函数并通过循环调用该函数输出数列。代码中使用了整数类型变量和函数，体现了C语言在数列计算方面的应用。

program Project2;
{$APPTYPE CONSOLE}
var
a,b,c,i:integer;
begin
i:=0;
a:=1;
b:=1;
writeln(1);
writeln(1);
repeat
c:=a+b;
a:=b;
b:=c;
writeln(c);
inc(i);
until i>=38;
readln;
end.

PROGRAM bubble_sort;
{$apptype console}
CONST N = 10;
var i:integer;
Function fibon(n:integer):integer;
begin
if n=0 then fibon:=0;
if n=1 then fibon:=1;
if n>1 then fibon:=fibon(n-1)+fibon(n-2);
end;
BEGIN
for i:=0 to 40 do
writeln(fibon(i));
readln;
END.