Question

pascal 中的 exit 的文题 求教！

program huanghou;
var
l:array[1..10] of integer;
n:integer;
p,q:array[1..20] of integer;
x,y:array[1..10] of integer;
procedure search(cnt:integer);
var
i,j:integer;
begin
if cnt>n then begin
writeln('answer:');
for i:=1 to n do writeln(x[i],',',y[i]);
exit;
end;
i:=cnt;
for j:=1 to n do begin
if (l[j]=0) and (p[i+j-1]=0) and (q[i-j+n]=0) then begin
l[j]:=1; p[i+j-1]:=1; q[i-j+n]:=1;
x[cnt]:=i; y[cnt]:=j;
search(cnt+1);
l[j]:=0; p[i+j-1]:=0; q[i-j+n]:=0;
end;
end;
end;
begin
read(n);
fillchar(l,sizeof(l),0);
fillchar(p,sizeof(p),0);
fillchar(q,sizeof(q),0);
search(1);
end.

这个八皇后的问题 ，呵呵 我主要想问一下 我自己编译的时候 是把所有情况都打印了出来，比如 n=4时 有两种方案， 但exit 不是直接退出过程吗？

Answer 1

这个。。我也遇到过这种情况，有时候exit只会退出1层，有时就全部退出去了。
procedure search(cnt:integer);
var
i,j:integer;
begin
if cnt>n then begin
writeln('answer:');
for i:=1 to n do writeln(x[i],',',y[i]);
end else begin
i:=cnt;
for j:=1 to n do begin
if (l[j]=0) and (p[i+j-1]=0) and (q[i-j+n]=0) then begin
l[j]:=1; p[i+j-1]:=1; q[i-j+n]:=1;
x[cnt]:=i; y[cnt]:=j;
search(cnt+1);
l[j]:=0; p[i+j-1]:=0; q[i-j+n]:=0;
end;
end;
end;
end;
可以把search过程改成这样。
不用exit应该不会出现问题了吧

Answer 2

在函数或者是过程中用exit，只会退出这个过程或函数，不是退出整个程序，多用几次是不行的，看看用label行不？

追问

label 是怎么用的哦？

Answer 3

不是，是退出一层递归调用。