Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];
Вниз
Перестановки Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
