UC知道pascal:我这程序哪儿有错
来源：百度知道 编辑：UC知道 时间：2024/06/06 04:49:08
var
x,n,j:real;
procedure f(x,n:real;var j:real);
begin
if n=1
then j:=x/(1+x)
else begin
f(x,n-1,j);
j:=x/(n+j);
writeln(j);
end;
begin
readln(x,n);
f(x,n,j);
end.
x,n,j:real;
procedure f(x,n:real;var j:real);
begin
if n=1
then j:=x/(1+x)
else begin
f(x,n-1,j);
j:=x/(n+j);
writeln(j);
end;
begin
readln(x,n);
f(x,n,j);
end.
楼上说得没错
正确程序是：
var x,n,j:real;
procedure f(x,n:real;var j:real);
begin
if n=1 then j:=x/(1+x) else begin
f(x,n-1,j);j:=x/(n+j);writeln(j);
end;
end;{这里要加一个}
begin
readln(x,n);
f(x,n,j);
end.
else begin后没end;
第十一行少了个end