[C++] дано слово. Из всех его букв складываются другие слова, Составить программу, которая по заданному слову из этого набора составляет следующее за ним по алфавиту.

[ST1G]

Помогите с задачей. Условие:"Задано слово(латинскими буквами) . Из всех его букв складываются другие слова, возможно и бездумные. Составить программу, которая по заданному слову из этого набора составляет следующее за ним по алфавиту слово из этого же набора. На экран выводится заданное слово и следующее по алфавиту."

[Аватар]

Если в нем не очень много букв, то самый простой способ создать массив всех возможных слов, отсортировать, найти в нем исходное и выбрать следующее. Желательно букв в слове не больше 10-12

[digitalis]

12! = 479.001.600 море удовольствия при составлении этой горстки слов. А уж отсортироваь... Стьюдент колледж окончит, женится, сына в армию отправит - а сортровка все идет. Эх, суперкомпьютер бы сюда ! Не перестаю удивляться больной фантазии составителей этих полезных в будущей работе задачек.

[Аватар]

Около 6 гиг для массива в памяти многовато конечно, но вполне реально. Да и сортировка пол миллиарда слов QuickSort за вполне реальное время справится с этим, по крайней мере не часы, а десятки минут, предположительно, не проверял. А так да, хотя бы для слов из 5-6 букв сделал )

[alexcoder]

Тут явно нужен перебор в лексикографическом порядке. Если буквы исходного слова отсортировать, а из них уже перебирать все возможные комбинации. При этом, выделить функцию, которая бы возвращала следующее значение, то можно получить требуемый результат. Если ошибаюсь, поправьте.

[Аватар]

Можно и нужно. Выше же о самом простом способе, ну а не очень простой быстрей и намного. Только подумать нужно. Например так, только ТС пусть сам переводит

function NextPermutation(Text: String): String;
var i,j,k,n: Integer;
procedure Swap(k1,k2: Integer);
var c: Char;
begin
  c:=Text[k1];
  Text[k1]:=Text[k2];
  Text[k2]:=c;
end;
begin
  n:=Length(Text);
  for i:=n-1 downto 1 do
    if Text[i]<Text[i+1] then begin
      k:=i+1;
      for j:=i+1 to n do if (Text[j]<Text[k]) and (Text[j]>Text[i]) then k:=j;
      Swap(i,k);
      for j:=1 to (n-i) div 2 do Swap(i+j,n-j+1);
      Result:=Text;
      Exit;
    end;
  Result:='';
end;

[Dias123]

Спасибо мне тоже помогло

[ST1G]

Спасибо!