Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.04;
Скачать: CL | DM;

Вниз

---!! Перебор символов !! ---   Найти похожие ветки 

 
N0wheremany ©   (2003-10-02 10:33) [0]

Дана строка символов, минимольное число символов в выводе (length(out)) и макчимальное чило символов привыходе! Как сделать перебор типа:

строка 123
мин    2
max    3

11
12
13
21
22
23
31
32
33
111
112
...
333


 
Aldor ©   (2003-10-23 21:26) [1]


program BruteForce;
...
procedure Recurse(CurrentStr: string);
var
 Len, I: Integer;
begin
 Len := Length(CurrentStr);
 if (Len >= min) and (Len <= max) then
   writeln(CurrentStr);
 else
   for I := 0 to Length(Str) - 1 do
     Recurse(CurrentStr + Str[I]);
end;
...
var
 min, max: Integer;
 Str: string;
...
begin
...
Recurse("");
end.




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

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

Наверх




Память: 0.46 MB
Время: 0.037 c
6-1116419110
Hereticsoul
2005-05-18 16:25
2005.09.04
Tidtcpclient и пример из Indy


14-1123752227
Seg
2005-08-11 13:23
2005.09.04
На Украину по загранпаспорту


4-1121720703
FFNevil
2005-07-19 01:05
2005.09.04
Определение момента завершения некого приложения


3-1122136257
ViktorZ
2005-07-23 20:30
2005.09.04
Сдвиг номера поле по последовательности чисел


14-1123009670
Михаил(Киров)
2005-08-02 23:07
2005.09.04
Логи WinRoute