---!! Перебор символов !! ---
N0wheremany © (2003-10-02 10:33:00)
Дана строка символов, минимольное число символов в выводе
(length(out)) и макчимальное чило символов привыходе! Как сделать
перебор типа:
строка 123
мин 2
max 3
11
12
13
21
22
23
31
32
33
111
112
...
333
Aldor (2003-10-23 21:26:00) [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.
Наверх 
ЧАТ |
Орешник |
|
