Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Комбинации   Найти похожие ветки 

← →
777 ©   (2002-08-18 19:09) [0]

блин. задолбался.
как можно получить все возможные сочетания символов в строке?
строка длинной 8 символов типа 12345678,
раньше это делал, с виду просто, однако сейчас никак не могу сообразить...
подскажите откуда плясать,
или может у кого-нибудь есть готовый алгоритм?

---

← →
Ev_genus ©   (2002-08-18 19:39) [1]

Рекурсия.


procedure WriteStrings(l:byte);
var
s:string;
min, max:byte; // диапазон значений

procedure fill(k:byte);
var
i:byte;
begin
if k>l then begin
showmessage(s); // выводим очередную строку
exit;
end;
for i:=min to max do begin
s[k]:=i;
fill(k+1);
end;
end;

begin
setlength(s, l);
fill(1);
end;


---

Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c