[lovop]

Как сделать генератор комбинаций?
Есть такая наука - комбинаторика.
Есть строка: chars4generation = "as";
Есть число (тип int): generation_length = 2;
Строка chars4generation - это символы для генерации комбинаций.
Число generation_length - это длина генерируемой комбинации.
В этом примере должно быть так:
aa
as
sa
ss
Как сделать такую штуку?

[Act]

не наука а область из терии вероятности.
В твоем примере представлен просто пример составления всех возможных комбинаций...

[lovop]

Как сделать такую штуку без рекурсии?

[Act]

Код:

var s,
    r: string;
    leng,
    i,j,l : integer;
begin
  s:= inputbox('Input string', 'string here plz', 'as');
  leng := Length(s);
  i := 1; j := 0;
  while i <= leng do
  begin
    for j:= 1 to leng do
    begin
        r:='';
      for l := 1 to Leng do
      begin
         r := s[j] + s[i];
      end;
      memo1.Lines.Add(r)
    end;
    inc(i);
  end;

ну как то так, спать хочу вроде работает проверять больше лень. Работает правда только для 2 символов.

[lovop]

а как сделать чтобы работала на "сколько угодно" символов?

[Act]

незнаю как без рекурсии, но с рекурсией так:

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure replacer( dep : integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r,s : string;
  len : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var  i,j: integer;
begin
  s := Inputbox('','','asd');
  len := Length(s);
  replacer(0);
end;

procedure TForm1.replacer( dep : integer);
var i : integer;
begin
   inc(dep);
   for I:= 1 to Len do
   begin
     r := r +  s[ i ];
     if dep < len then replacer(dep);
     if dep = len then memo1.Lines.Add(r);
     delete (r, len,1);
   end;
     dec(dep);
     delete(r, dep, len-dep);
end;

[Vayrus]

Act спасибо пригодится для чего нить

[Act]

а вот готовый вариант =) http://esoft.bplaced.net/uploads/fil...t/project1.exe

[Vayrus]

Ну тогда исходник в студию, для полного фарша

[Act]

а чо там сорсы, всё самое главное уже выложил. А в той проге прост оболочку сделал для этого