Комбинации
777 © (2002-08-18 19:09:00)
блин. задолбался.
как можно получить все возможные
сочетания символовв строке?
строка длинной 8 символов типа 12345678,
раньше это делал, с виду просто, однако сейчас никак не могу
сообразить...
подскажите откуда плясать,
или может у кого-нибудь есть готовый алгоритм?
Ev_genus (2002-08-18 19:39:00) [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;
Наверх 
ЧАТ |
Орешник |
|
