UC知道pascal编的程序哪错了？？？
来源：百度知道 编辑：UC知道 时间：2024/05/16 02:18:20
求费波那契数列的第n项（0，1，1，2，3，5，8，13……）
program d5;
var a,b:integer;
function fei(n:integer):integer;
begin
case n of
1: fei:=0;
2: fei:=1;
else fei:=fei(n-2)+fei(n-1);
end;
begin
readln(a);
b:=fei(a);
writeln('b=',b);
end.
program d5;
var a,b:integer;
function fei(n:integer):integer;
begin
case n of
1: fei:=0;
2: fei:=1;
else fei:=fei(n-2)+fei(n-1);
end;
begin
readln(a);
b:=fei(a);
writeln('b=',b);
end.
case是有end的！
修改如下：
program d5;
var a,b:integer;
function fei(n:integer):integer;
begin
case n of
1: fei:=0;
2: fei:=1;
else fei:=fei(n-2)+fei(n-1);
end;
end;
begin
readln(a);
b:=fei(a);
writeln('b=',b);
end.