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

Вниз

Перестановки   Найти похожие ветки 

 
Sam Stone ©   (2004-02-05 21:23) [0]

Доброго времени суток.
Что-то я никак не могу сладить со следующей проблемой: имеем n символов, нужно написать все комбинации определенной длины. Т.е., если у нас есть abcde и длина 3, то результатом должно быть следующее: aaa,aab,aac,...,abc,...,eee.
Помогите советом или ссылкой


 
Stilgar ©   (2004-02-05 22:31) [1]

Тут нужно делать систему счисления с основанием 5. Я этим никогда не занимался, но тут можно использовать обычную человеческую логику - проход справа налево, если цифра максимальная, ставим минимальную и увеличиваем цифру слева:

var
Chislo: string;
Times, I, J: Integer;
begin
Chislo := "aaa";
Times := основание в степени длинны комбинации;

for J := 1 to Times do
for I := Length(Chislo) downto 1 do
if Chislo[I] = "e" then
begin
Chislo[I] := "a";
Chislo[I-1] := Chr(Ord(Chislo[I-1]) + 1);
end;

end;

Еще конечно ввести проверку на переполнение, но идею я подал.
P.S. Быстродействия никакого, но для задачи подходит.



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

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

Наверх




Память: 0.46 MB
Время: 0.012 c
14-53698
Marat_ch
2004-01-30 04:47
2004.02.17
Вирус


3-53368
jocko
2004-01-28 15:33
2004.02.17
Как закрыть соединение


14-53704
Ihor Osov'yak
2004-01-29 19:22
2004.02.17
PSAPI.dll в NT4 после какого SP штатно присутствует?


3-53432
stud
2004-01-28 14:04
2004.02.17
IP подключенных к базе ользователей


6-53682
Бэтман
2003-12-15 16:29
2004.02.17
Список компьютеров в локалке