Обработка массива

[Элизабет]

По данному числу n вывести все перестановки множества {1,..,n}. Например, для числа 3 список перестановки следующий: (1,2,3), (1,3,2), (2,1,3), (2,3,1), (3,1,2), (3,2,1).

Помогите, пожалуйста.. Заранние благодарна..

[Vago]

http://programmersforum.ru/showthrea...&posted=1#post
Для своей задачи поменяйте во втором операторе

k = 2

на

k = len( a )

(и про язык хорошо было бы хоть что-то сказать...)

[Serge_Bliznykov]

вот решение на Pascal, когда исходные элементы представлены в виде строки.

{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 48124,0,655360}
var S:string;
    LenS : byte absolute S;
    a1,a2 : string;

procedure ShowVariant(S0,S1 : string);
var I :byte;
begin
  if length(S1)=1 then begin WriteLn(S0+S1); Exit end;
  a1 := '';
  a2 :=  copy(S1,I+1,length(S1));
  for i:=1 to length(S1) do ShowVariant(S0+S1[i],copy(S1,1,I-1)+
                             copy(S1,I+1,length(S1)));
end;

begin
  Writeln('Переборщик строк     v1.0 by B_SA (Specailly for Nataly & Juliy)');
  if ParamCount < 1 then begin WriteLn('Укажите в командной строке требуемую строчку.');
      Writeln('Для выдачи результатов в файл введите combine.exe ТРАТАТА > имя_файла');
      Writeln('   ТРАТАТА - строка для преобразования'); Halt(1)
  end;
  S := paramstr(1);
  ShowVariant('',S);
end.

во-вторых,
смотрите классику тут - "Методы программирования: переборные алгоритмы"

[Элизабет]

Благодарю за предложенные вопрос)
На языке Паскаль естественно нужна задачка.. И преподаватель не разрешает использовать процедуры и рекурсию для решения данной задачки..