Сгенерировать все возможные комбинации заданного набора символов

Posted by obzor under Delphi

Нужно как-то сгенерировать все возможные варианты. То есть у меня есть два списка букв от a до z (4 символа) и цифры от 0001 до 9999 и теперь надо получить все возможные комбинации.

Допустим
АА0001BB
….
AA9999BB
И так до конца. Потом следующие значение
AACC
AA0001CC
….
AA9999CC

evg_m

возможно надо это
сгенерировать ВСЕ последовательности вида XY…Z где для каждой позиции выбран(указан) свой алфавит.

поз   алфавит
1-2:  A..Z (буква лат. алфавита)
3-6:  0..9 (десятичная цифра)
7-8:  A..Z

здесь написана генерация в одном алфавите, для разных надо

maxind: array[1..100] of integer;
for j:=1 to 100 do
  case j of
  1..2: maxind[j]:=26;
  3..6: maxind[j]:=10;
  7..8: maxind[j]:=26;
  else maxind[j]:=0;
  end;

и везде где есть операция с maxind заменить на операцию с maxind[ind]

P.S. да еще надо конечно будет «перевести» полученные числа массива arrind: array [1..100] of integer в «нормальные» буквы и цифры.

var r: string[100];
for j:=1 to 100 do 
  case j of 
  1..2: r[j]:=chr( ord('A')+ ardind[j] {-1 ???});
  3..6: r[j]:=chr( ord('0')+ ardind[j] {-1 ???});
  7..8: r[j]:=chr( ord('A')+ ardind[j] {-1 ???});
  else r[j]:=' ';
  end;

как-то так

Аватар

Цикл мог бы так выглядеть

var i: Integer;
    c11,c12,c21,c22: Char;

  for c11:='A' to 'Z' do
    for c12:='A' to 'Z' do
      for c21:='A' to 'Z' do
        for c22:='A' to 'Z' do
          for i:=1 to 9999 do StringList.Add(Format('%s%s%.4d%s%s',[c11,c12,i,c21,c22]));

Только получишь 4 с половиной миллиарда строк. Что делать с ними будешь?

тема на форуме

Похожие статьи

• Счетчик в FireBird