[lovop]

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

[Act]

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

[lovop]

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

[Act]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

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]

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