Найти все слова полиндромы в строке и вывести номер символа с которого они начинаются

@Dronskiy · Регистрация: 21.10.2009

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

Найти все слова палиндромы в строке и вывести номер символа с которого они начинаются(слова палиндромы).
Программа находит палиндромы,но я никак не могу найти номер символа(

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
  var
  s:string;
  i,j,l:integer;
  w:string;
  f:boolean;
begin
  readln(s);
  w:='';
  for i:=1 to length(s) do
    begin
      if (s[i]<>' ') then
        w:=w+s[i];
      if (s[i]=' ') or (i=length(s)) then
        begin
          f:=true;
          l:=length(w);
          for j:=1 to (l div 2) do
            if w[j]<>w[l-j+1] then
              f:=false;
          if f then
            writeln(w);
          w:='';
        end;
    end;
  readln;
end.

@Puporev · 02.02.2010, 09:19

Цикл for для этого не очень удобен, лучше while.
Код ошибочный, удален автором.

@Dronskiy · 02.02.2010, 09:30 **[ТС]**

Так получается что мы выводим номера первыго символо всех слов в строке ,а надо только палиндромов

Получается
hxsqjhxq rotor potop
1 -hhhh
10 -rrrrrr
16 -pppp

@Puporev · 02.02.2010, 09:49

Прошу прощения, я только на палиндромах проверил.

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
uses crt;
 var
  s:string;
  i,j,l,p:integer;
  w:string;
  f:boolean;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
i:=1;
while i<=length(s) do
if (s[i]<>' ') then
  begin
   p:=i;j:=i;w:='';
   while (s[j]<>' ')and(j<=length(s)) do
    begin
     w:=w+s[j];
     j:=j+1;
    end;
    f:=true;
    l:=length(w);
    for j:=1 to (l div 2) do
    if w[j]<>w[l-j+1] then  f:=false;
    if f then  writeln(p,' - ',w);
    i:=i+length(w);
   end
else i:=i+1;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.02.2010, 09:19
	Цикл for для этого не очень удобен, лучше while. Код ошибочный, удален автором. 0

@Dronskiy 0 / 0 / 0 Регистрация: 21.10.2009 Сообщений: 6
	02.02.2010, 09:30 [ТС]
	Так получается что мы выводим номера первыго символо всех слов в строке ,а надо только палиндромов Получается hxsqjhxq rotor potop 1 -hhhh 10 -rrrrrr 16 -pppp 0