VPF::INC для строки - Форум программистов

jonimimoni

Дата 1.9.2015, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 10
Регистрация: 28.9.2007

Репутация: нет
Всего: нет

Добрый день.
Необходимо реализовать функцию INC но для СТРОКИ.
Например: необходимо получить все возможные комбинации (размещение из n по k, где n=33, k=5 ) из массива ALPHABET='абвгдеёжзийклмнопрстуфхцчшщъыьэюя' без повторений. n и k могут меняться.
Возможно INC не самый точный аналог, но устранить повторения - дело плёвое.
Код не привожу в силу его несостоятельности.

Poseidon

Дата 1.9.2015, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(jonimimoni @ 1.9.2015, 17:48

)

Необходимо реализовать функцию INC но для СТРОКИ

Что делает Inc для целых - известно. Что должно делать для строк? Следующую букву возвращать?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

jonimimoni

Дата 1.9.2015, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 10
Регистрация: 28.9.2007

Репутация: нет
Всего: нет

Цитата(Poseidon @ 1.9.2015, 17:57)

Следующую букву возвращать?

например есть строка ирнпавю, после, необходимо получить ирнпавя, но следующее увеличение даёт уже увеличение предпоследней буквы ирнпавя и тут начинается цирк, индексы теряются - функция ломается... Я уже не говорю про первый символ в слове.

Poseidon

Дата 1.9.2015, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Код


procedure IncRusStr(var S: string);
var
  ChangeChr: Char;
  Index: Word;
begin
  Index := S.Length-1;

  while (S.Chars[Index] = 'Я') or (S.Chars[Index] = 'я') do
    Dec(Index);

  ChangeChr := S.Chars[Index];
  ChangeChr := Succ(ChangeChr);

  S := Copy(S, 1, Index) + ChangeChr + Copy(S, Index+2, S.Length-Index-1);
end;

Что делать в случае строки 'яяяяя' и т.п. придумай сам. Так же следует отдельно обрабатывать букву 'ё', если она нужна.

Это сообщение отредактировал(а) Poseidon - 1.9.2015, 19:15

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »