查人人中国名人网怎么把午餐肉拿出来:有一个简单的PASCAL程序不知道是哪里出错了，请高手指点
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 17:54:45
求下面第N个fibonacci数.其定义为
f(0)=0,f(1)=1,f(n)=f(n-1)+f(n-2) (n>=2)
program fibonacci;
var x:integer;
s:longint;
procedure f(n:integer;):longint;
begin
if n=0 then f:=0;
if n=1 then f:=1;
if n>=2 then f:=f(n-1)+f(n-2);
end;
begin
readln(x);
s:=f(x);
writeln(s);
end.
运行不了
f(0)=0,f(1)=1,f(n)=f(n-1)+f(n-2) (n>=2)
program fibonacci;
var x:integer;
s:longint;
procedure f(n:integer;):longint;
begin
if n=0 then f:=0;
if n=1 then f:=1;
if n>=2 then f:=f(n-1)+f(n-2);
end;
begin
readln(x);
s:=f(x);
writeln(s);
end.
运行不了
procedure f(n:integer;):longint;
中的f(n:integer;),应该没有";"吧
不是procedure!!!
是function!
函数才有返回值的!!!
......需要用循环啊
procedure是过程 不能直接赋值