奇怪了....

但结果还是不对，一定还有错误

对，应该是FIND{K+1};

...

你应该写find(k+1);

进入下一层。。。

procedure find(k:integer);

begin

　　 if k>n then

　　　　　　 begin

　　　　　　　　 for j:=1 to n do write(a[n],' ');

　　　　　　　　 writeln;

　　　　　　 end

　　 else

　　　　for i:=1 to n do

　　　　 begin

　　　　　　 flag:=true;

　　　　　　 for q:=1 to k-1 do if a[q]=i then flag:=false;

　　　　　　 if flag=true then begin a[k]:=i; find(k); end;

　　　　 end;

end;

for q:=1 to k-1

由于k=1，所以这句话跳过。

if flag=true then begin a[k]:=i; find(k); end;

因为flag=true，所以执行find(k)，k=1,所以好像这个程序真正执行的只有一条：a[k]=i;

不知道我说的对不对，仅供参考，谢谢。

……………………

我怎么看怎么像死循环啊！！！