Генератор возможних вариантов

[Sm1Le]

evg_m - прокаментирую плз ....что то я вообще не пойму что тут и куда...
maxind - вообще не инициализирована...

[TwiX]

Почти то же самое, что и пересчёт чисел в заданном диапазоне.
Да и на форум много раз уже такое обсуждалось:
http://programmersforum.ru/showthrea...2%FC+%E2%F1%E5

[Serge_Bliznykov]

а вот и мой вариант.

const Dlina = 3;

var
  i : integer;
  s : string;
  RangeBegin, RangeEnd : char;
  flag : boolean;

begin
  WriteLn('----------------');

  RangeBegin := 'A';
  RangeEnd := 'D';
  s := '';
  for i:=1 to Dlina do s := s + RangeBegin;

  flag := false;
  repeat
    WriteLn(s);
    for i:= Dlina downto 1 do begin
      if s[i]<RangeEnd then begin s[i] := chr(ord(s[i])+1); break end
      else
        if i=1 then Flag:=true
        else s[i] := RangeBegin;
    end;
  until flag;
  
end.

[evg_m]

var
arind: array[0..100] of integer;//массив счетчиков
ind: integer;//текущий счетчик


for j:=0 to 100 do
arind[j]:=1;//начальное состояние (все счетчики =1)
maxind:=26;//максимальное значение счетчиков

ind:=100;//перебор состояний
while ind >=0 do
begin
if arind[ind]<maxind then 
begin//можно изменить(увеличить) текущий индекс
  arind[ind]:=arind[ind]+1;//увеличили
  for jj:=ind+1 to 100 do//сбросили все последующие индексы в начало (1)
  arind[jj]:=1;
  ind:=100;//сделали текущим последний(100)
//здесь получили индекcы состояния arind[0..100]
end
else//текущий индекс достиг максимума
  ind:=ind-1;//переходим к предыдущему
end;

[Sm1Le]

Спасибо вам обоим ! Помогли ...