Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
1-95852
snoup
2002-08-17 22:00
2002.08.29
Как сделать чтобы в мемо определенный текст был например красного


1-95806
ErmSergey
2002-08-20 09:29
2002.08.29
Определение позиции символа над которым находится указатель мыши


3-95713
oleg_d
2002-08-09 11:31
2002.08.29
Результат запроса в DBGrid


4-96011
MVova
2002-06-25 16:30
2002.08.29
Как растянуть текст?


1-95750
Olorin
2002-08-15 11:44
2002.08.29
Как треду перед запуском передать/установить параметры/флаги?