Главная страница
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.025 c
14-1123668228
Внук
2005-08-10 14:03
2005.09.04
Свершилось


14-1123504446
oldman
2005-08-08 16:34
2005.09.04
Могем!!! (Извините, если тема была, но я ее не засек...)


14-1123747026
Ilya___
2005-08-11 11:57
2005.09.04
Как думаете сколько мне можно попросить за мою програмку?


5-1097476858
vg
2004-10-11 10:40
2005.09.04
Событие перемещения у родительской формы


11-1106307599
<Falcon>
2005-01-21 14:39
2005.09.04
Работа с TBitmap в KOL