Question

Delphi 中用一个数组实现全排列，比如三个数的全排列，我想要的效果是 123 132 321 312 ...

但是用Tmemo.line 显示的效果是
1
2
3
1
3
2
...
for i := 1 to n do
begin
form1.Memo1.Lines.Add( inttostr(arr[i]) );
continue;
end;
求助怎么实现3个一行然后换行

Answer 1

全排列递归算法：
const
	n=3;
type
	st=string[n];
var
	b:array[1..n] of boolean;
	i:integer;

procedure next(i:integer;s:st);
var
	p:integer;
	t:string[1];
begin
	if i>n then writeln(s)
	else for p:=1 to n do 
		if not b[p] then begin
			str(p:1,t);
			b[p]:=true;
			next(i+1,s+t);
			b[p]:=false;
		end;
end;

begin
	for i:=1 to n do b[i]:=false;
	next(1,'');
end.