Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
ВнизКомбинации Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c