UC知道pascal 过程调用问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 18:50:17
procedure wh1(i:integer);
begin
if i<100 then begin wh2(i+1);writeln(i);end;
end;
procedure wh2(i:integer);
begin
if i<100 then begin wh1(i+1);writeln(0-i);end;
end;
begin
wh1(1);
end.
这个程序总是说没有找到过程wh2.我查了查，网上说过程只能调用前面的过程，那应该怎么改才可以调用后面的？
begin
if i<100 then begin wh2(i+1);writeln(i);end;
end;
procedure wh2(i:integer);
begin
if i<100 then begin wh1(i+1);writeln(0-i);end;
end;
begin
wh1(1);
end.
这个程序总是说没有找到过程wh2.我查了查，网上说过程只能调用前面的过程，那应该怎么改才可以调用后面的？
可以用forwand
procedure wh2(i:integer);
forward;
procedure wh1(i:integer);
begin
if i<100 then begin wh2(i+1);writeln(i);end;
end;
procedure wh2(i:integer);
begin
if i<100 then begin wh1(i+1);writeln(0-i);end;
end;
begin
wh1(1);
end.
这样就行了
把后面个过程写在前面去