Генерация всех перестановок массива

[aly-lucenko]

Доброго времени суток) подскажите, как осуществить данную задачу...
вот мои наработки...

[aly-lucenko]

не проходите мимо)
может именно вы сможете мне помочь

[Serge_Bliznykov]

секция объявления переменных

const
  max = 200;
var
  Form1: TForm1;
  b:array[1..max] of integer;
  n:byte;
  s:longint;
  i,c,p,j:integer;
  il:byte;
  sOneVariant : string;

процедура:

procedure Generate(k:byte);
  var i,j:byte;
  procedure Swap(var a,b: integer);
    var c:byte;
  begin
    c:=a;a:=b;b:=c
  end;
begin
  if k=N then
    begin
      sOneVariant := '';
      for i:=1 to N do sOneVariant := sOneVariant + IntToStr(B[i])+' ';{значит выводим массив}
      Form1.Memo1.Lines.Append(sOneVariant);
    end
  else
    for j:=k+1 to N do
      begin
        Swap(B[k+1],B[j]);
        Generate(k+1);
        Swap(B[k+1],B[j])
      end
end;

вызов на кнопке:

procedure TForm1.Button1Click(Sender: TObject);
begin
  N := StrToInt(edit1.Text);
  Generate(0);
end;

p.s. взято тут - Перестановки

[aly-lucenko]

прошу прощение за беспокойство, но sOneVariant это обьект в который выводит результат?
тогда выдает ошибку...

[Serge_Bliznykov]

Нет, Вы неправильно поняли.
1) sOneVariant - это просто строка (посмотрите секцию описания переменных

2) Вы выкинули массив. Из чего перестановки генерировать?!

3) посмотрите мой рабочий пример (из вашего кода) в архиве.

p.s. два дня не могу получить доступ к форуму... поэтому так запоздало отвечаю..