nba2k17智能战术怎么用:有一个简单的PASCAL程序不知道是哪里出错了,请高手指点
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/05 15:31:16
求下面第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是过程 不能直接赋值