全排列

题目描述: 输出自然数1到n所有不重复的排列，即n的全排列，要求所产生的任一数字序列中不允许出现重复的数字。

输入输出格式 输入格式： n(1≤n≤9) 输出格式： 由1～n组成的所有不重复的数字序列，每行一个序列。

输入输出样例 输入样例#1： 3 输出样例#1： 1 2 3 1 3 2 2 1 3 2 3 1 3 1 2 3 2 1

程序如下： var a:array[1..9]of integer; b:array[1..9]of boolean; m:integer; procedure print; var i:integer; begin for i:=1 to m-1 do write(a[i],’ ‘); //打印格式有可能不一样 writeln(a[m]); end; procedure search(k:integer); var i:integer; begin for i:=1 to m do if b[i] then begin a[k]:=i; b[i]:=false; if k=m then print else search(k+1); b[i]:=true; //把数据复原 end; //这是一个回溯 end; begin readln(m); fillchar(b,sizeof(b),true); //把b数组全部设为真 search(1); end.

一开始的是时候，一直错，找不出原因，最后发现居然是打印格式错了！！！