Форум: "Начинающим";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.017 c