Главная страница
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.018 c
1-95854
Keymaster
2002-08-18 01:36
2002.08.29
Два нехитрых вопроса


1-95819
ivanVV
2002-08-16 22:13
2002.08.29
Работа с ini файлом


4-96020
Дмитрий К.
2002-06-26 16:51
2002.08.29
Реакция на нажатие кнопки


3-95710
First_May
2002-08-09 09:22
2002.08.29
DBGrid


14-95953
Jeer
2002-07-30 21:27
2002.08.29
---|Ветка была без названия|---