Delphi,как поменять слова в array of char местами

[Neostat]

Уважаемые форумчане,мне очень нужна ваша помощь.Буду честен, завтра у меня кр по программированию,где будут две задачи,одна на матрицу(знаю как решать) , другая на "array of char".

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

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

Возможно идеи ,приведенный выше -сущий бред.Но мне правда очен важно понять,как произвести обмен.Хотя бы словами алгоритм напишите пожалуйста,но конечно лучше процедурой или функцией.

Заранее огромнейшее спасибо.

[WinCoder]

Пытался определять границы слова ,которое стоит в начале и слова которое стоит в конце,а потом менять их местами, но тоже ничего не вышло.

Если разрешается использовать класс TStringList, то задача значительно упростится. Класс сам разобьёт строку на слова, и можно будет обращаться к каждому слову по его индексу.

[Serge_Bliznykov]

Если разрешается использовать класс TStringList, то задача значительно упростится.

полностью согласен!

если же нет, тогда задача перестаёт быть тривиальной.
По сути, поменять два "слова" в массиве - это поменять местами две ГРУППЫ (последовательности) элементов массива, в общем случае РАЗЛИЧНОЙ длины.
для этого нужно найти индексы начала первой группы для переноса и индекс конца группы, потом нужно найти индексы начала и окончания второй группы и потом выполнить СЛОЖНУЮ процедуру по сдвигу остальных элементов массива в зависиомсти от разныцы размеров двух этих групп.

Если допустимо использовать обычную String, тогда можно решить задачу с использованием строковых функций (array of char элементарно скопировать в строку и строку -> array of char)

[Аватар]

Непосредственно в исходном массиве менять крайне неудобно. Можно выгрузить из него все слова в стринговый массив слов, потасовать его как нужно и обратно в новом порядке слова выгрузить

[evg_m]

Непосредственно в исходном массиве менять крайне неудобно.

Но если очень надо то можно за два прохода.
1. Переворачиваем весь массив без оглядки на слова.
теперь "слова" в нужном порядке, но вот ведь незадача они совершенно не те, а наоборотные(задом наперед).
2. выделяем "слова" и переворачиваем каждое "слово" в отдельности.

[Serge_Bliznykov]

Сообщение от evg_m

Но если очень надо то можно за два прохода.
1. Переворачиваем весь массив без оглядки на слова.
теперь "слова" в нужном порядке, но вот ведь незадача они совершенно не те, а наоборотные(задом наперед).
2. выделяем "слова" и переворачиваем каждое "слово" в отдельности.

Супер!!! просто, быстро и эффективно!
Мне такая идея даже в голову не пришла!
Респект!

[Neostat]

Сообщение от evg_m

Но если очень надо то можно за два прохода.
1. Переворачиваем весь массив без оглядки на слова.
теперь "слова" в нужном порядке, но вот ведь незадача они совершенно не те, а наоборотные(задом наперед).
2. выделяем "слова" и переворачиваем каждое "слово" в отдельности.

Спасибо огромное)

[WinCoder]

Честно говоря такой метод ужасен. Переворачивать побуквенно один раз, потом второй... И в обоих разах нужен буферный char, чтоб заменяемый символ не затереть... Проще уж найти все разделители, и скопировать пословно весь текст в нужном порядке в новый массив. Это в том случае, если TStringList нельзя использовать (работа чисто с символами).

[Stilet]

Честно говоря такой метод ужасен

Да что ты?

program Project1;
var s,s2:string;     i:integer;
begin
  s:='helo my world';
  for i:=Length(s) downto 1 do begin
    if s[i]<>' ' then s2:=s[i]+s2
    else begin write(s2,' '); s2:='';end;
  end;  write(s2,' ');
  readln;
end.

Действительно ужасен?

[WinCoder]

Stilet А ни чего, что твой метод не соответствует описанному, и ты в итоге не переворачиваешь буквы в слове?

но вот ведь незадача они совершенно не те, а наоборотные(задом наперед).

Ты переверни слово

s2:=s2+s[i]

а потом допиши код, и спроси меня ещё раз. А то получается, что ты подставил под мои слова ДРУГОЕ решение.