Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c