begin
writeln('ABCDE');
writeln('BCDEA');
...
end.
着是最好的方法

用阿思可码呀！～～～～～～～～很容易解决的问题

你打出来？？？

for i:=65 To 69 Do
  chr(i)
5 个嵌套

和求1～5数字的全排列方法一样——但在输出时是write(chr(<数字>+ord('A')-1));
[em1][em1][em1]
[fly]So Easy![/fly]

XVenus
你所说的
for i:=65 To 69 Do
  chr(i)
5 个嵌套//怎么做呀~~~说完嘛`~

此为n的全排列。运行程序输入ABCDE即可。


program arrange;
var a:string;
k,n:integer;
procedure swap(var a:string;k,i:integer);
var t:char;
  begin
    t:=a[k];a[k]:=a[i];a[i]:=t;
end;
procedure perm(a:string;k,n:integer);
var i:integer;
begin
if k=n then writeln(a)
    else  for i:=k to n do
      begin
       swap(a,k,i);
       perm(a,k+1,n);
       end;
end;
begin
write('input a string:');
  readln(a);
  n:=length(a);
  perm(a,1,n);
end.

楼上的,,,,,在第一个过程中,你的变量说明有问题~~~
明明是n后来又用i.....
请更正
以便大家学习~~~