Изменить строку, продублировав слова, из которых можно составить слова-палиндромы четной длины

@NumLock · Регистрация: 01.03.2013

Студворк — интернет-сервис помощи студентам

Добрый вечер всем.

На главной странице я увидел эту надпись:

КиберФорум - форум начинающих и профессиональных программистов, системных администраторов, администраторов баз данных, компьютерный форум. Бесплатная помощь в решении задач по программированию и наукам, решение проблем с компьютером, операционными системами.

Я очень надеюсь на вашу помощь. Нет, не то, чтобы я совсем ничего в этом не понимаю... но эта задача все-таки требует чужого внимания, я думаю. Извините за причиненные неудобства.
Я не буду утомлять вас своим приветствием, поэтому просто напишу здесь саму задачу.

Вводится строка символов. Отредактировать строку, продублировав через один пробел слова, из которых можно составить палиндромы четной длины. Результат вывести на экран.

Слово - любая последовательность символов, ограниченная с двух сторон разделителями или разделителем и концом (началом) строки.
Разделитель - один или несколько пробелов.

Спасибо за помощь.

Добавлено через 18 минут
Вот код форумчанина Lilu666. Я пытался видоизменить его для своей задачи, но не знаю, что следует делать. Ведь для моей задачи слово "аббавв" должно дублироваться тоже, потому что в условии сказано "слова, из которых можно составить палиндромы четной длины", то есть если слово будет четной длины с символами, которые повторяются один раз (в данном случае "аббавв" - а, б и в имеют пару, то есть если их переставить, то получится палиндром - "абввба" или "ваббав" и т.д.), то программа должна будет дублировать данное слово.

@Ашера · 01.03.2013, 23:20

Я не стану разбирать чужой код, напишу свой.
Идея такая:
1. Будем для простоты считать, что слова в строке разделены одним пробелом (можно было и со знаками препинания, но это лишь утяжелит программу).
2. Проходим по строке, выделяем слова и заносим их в массив слов b
3. Перебираем каждое слово, отбирая из них только слова чётной длины. Заносим каждое из них в дополнительную переменную r. В них сортируем буквы (не важно, по возрастанию или убыванию, главное, чтобы одинаковые буквы встали рядом).
4. Проходим по отсортированной переменной r, выбирая лишь буквы, стоящие на чётных местах и сравниваем с буквами, стоящими на нечётных местах. Если они совпадают до конца слова, то из слова можно сделать палиндром чётной длины, тогда добавляем слову такое же.
5. Распечатываем изменённый массив слов в одну строку.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
a,r:string;
t:char;
b:array[1..100]of string;
i,j,k,n,c:integer;
f:boolean;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' ' then inc(k) else b[k]:=b[k]+a[i];
for i:=1 to k do
if length(b[i])mod 2=0 then
  begin
    r:=b[i];
     for n:=1 to length(r) do
      for j:=2 to length(r) do
       if r[j]<r[j-1] then
         begin
          t:=r[j];
          r[j]:=r[j-1];
          r[j-1]:=t;
         end;
    f:=true;
    c:=0;
    while (c<>length(r)) and (f) do
       begin
        c:=c+2;
        if r[c]<>r[c-1]then f:=false;
       end;
    if f=true then b[i]:=b[i]+' '+b[i];
    end;
for i:=1 to k do
write(b[i]+' ');
writeln;
end.

@NumLock · 02.03.2013, 01:18 **[ТС]**

Ашера, огромное Вам спасибо. А эта "идея такая"... правда ли то, что вы новичок?

Это будет грубо с моей стороны упрекнуть вас в маленькой ошибке, но в 35-ой строке точно ли нужен writeln? В самой программе он ничего не делает... если только поменять его на readln, то экран остановится и покажет видоизмененную строку. Я также думаю это будет плохой идеей просить у вас комментарий к каждой строке в программе, потому что вы все сказали в "идее такой".

@Ашера · 02.03.2013, 01:40

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

Ашера, огромное Вам спасибо. А эта "идея такая"... правда ли то, что вы новичок?

На этом форуме - да.

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

Это будет грубо с моей стороны упрекнуть вас в маленькой ошибке, но в 35-ой строке точно ли нужен writeln?

Нет, не нужен, это писалось при отладке, чтобы данные не сливались при перезапуске.

@NumLock · 12.04.2013, 00:27 **[ТС]**

Извините за бамп старой темы... но тут появился другой вопрос. Возможно ли сделать так, чтобы отредактировалась старая строка, то есть та же, что и содержала исходные слова, без создания нового массива/строки?

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@NumLock 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 3
	02.03.2013, 01:18 [ТС]
	Ашера, огромное Вам спасибо. А эта "идея такая"... правда ли то, что вы новичок? Это будет грубо с моей стороны упрекнуть вас в маленькой ошибке, но в 35-ой строке точно ли нужен writeln? В самой программе он ничего не делает... если только поменять его на readln, то экран остановится и покажет видоизмененную строку. Я также думаю это будет плохой идеей просить у вас комментарий к каждой строке в программе, потому что вы все сказали в "идее такой". 0

@NumLock 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 3
	12.04.2013, 00:27 [ТС]
	Извините за бамп старой темы... но тут появился другой вопрос. Возможно ли сделать так, чтобы отредактировалась старая строка, то есть та же, что и содержала исходные слова, без создания нового массива/строки? 0