генератор перестановок

[Narkotik]

привет,собственно интересует генератор числовых перестановок,в консоле на делфе... может поможет кто чем может...

[Ламер_001]

генератор всмысле выдать все возможновые перестановки заданных чисел или числе от 1 до n?

[Narkotik]

если начальная последовательность не упорядочена от 1 до n,ну например {3,2,4,1}.
вариант с начальным упорядочеванием, а потом гинерацией не подходит... :\

[Serge_Bliznykov]

вот, Дарю.
писал когда-то знакомым подружкам

{$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.

[Narkotik]

пасиба большое