Дана строка, состоящая из слов, разделённых пробелами. Определить количество слов-палиндромов

@timamas · Регистрация: 02.10.2019

Пожалуйста хелп

@ZX Spectrum-128 · 06.10.2019, 15:25

Найти количество слов-полиндромов в заданном тексте.

@timamas · 06.10.2019, 15:42 **[ТС]**

спасибо, видел эту тему нужно было просто оживить, тут такое дело, не подскажешь значение этой строки: if f then в том коде, а то я понять не могу

@bormant · 06.10.2019, 19:44

Достаточно было if buf<>'' then, тем более ниже оно же и используется.

@timamas · 06.10.2019, 22:42 **[ТС]**

Спасибо тебе большое, но я все равно половины кода не понимаю не сложно расписать что он вообще в коде делает?

@bormant · 07.10.2019, 10:29

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

Добавлено через 14 минут
Могло быть так:

Pascal

var
  s: String;
  i, j, k, n: Integer;
begin
  Write('Строка: '); ReadLn(s); s:=s+' ';
  j:=1; {n:=0;}
  for i:=1 to Length(s) do
    if s[i]=' ' then begin
      if i>j then begin
        k:=i-1;
        while (j<k) and (s[j]=s[k]) do begin
          Inc(j); Dec(k);
        end;
        Inc(n,Ord(j>=k));
      end;
      j:=i+1;
    end;
  WriteLn(n);
end.

@timamas 0 / 0 / 0 Регистрация: 02.10.2019 Сообщений: 88
		1
	Дана строка, состоящая из слов, разделённых пробелами. Определить количество слов-палиндромов 06.10.2019, 15:12. Показов 5168. Ответов 5 Метки нет (Все метки) Пожалуйста хелп __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@ZX Spectrum-128 6803 / 4562 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	06.10.2019, 15:25	2
	Найти количество слов-полиндромов в заданном тексте. 0

@timamas 0 / 0 / 0 Регистрация: 02.10.2019 Сообщений: 88
	06.10.2019, 15:42 [ТС]	3
	спасибо, видел эту тему нужно было просто оживить, тут такое дело, не подскажешь значение этой строки: if f then в том коде, а то я понять не могу 0

@bormant Модератор 7496 / 4365 / 2774 Регистрация: 22.11.2013 Сообщений: 12,496 Записей в блоге: 1
	06.10.2019, 19:44	4
	Достаточно было if buf<>'' then, тем более ниже оно же и используется. 1

@timamas 0 / 0 / 0 Регистрация: 02.10.2019 Сообщений: 88
	06.10.2019, 22:42 [ТС]	5
	Спасибо тебе большое, но я все равно половины кода не понимаю не сложно расписать что он вообще в коде делает? 0

Опции темы