Выполнение алгоритмов и программ обработки строковых данных.

@4ePeIIaH · Регистрация: 10.01.2012

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

Задание : Найти предложения, в которых есть хотя бы одно слово, представляющее собой симметричную относительно центра последовательность (палиндром). Если таких предложений нет, то вывести соответствующее сообщение
Для справки : Палиндро́м (от греч. πάλιν — «назад, снова» и греч. δρóμος — «бег»), иногда также палиндромон, от гр. palindromos бегущий обратно[1]) — число (например, 404), буквосочетание, слово (например, топот, фин. saippuakauppias = продавец мыла — самое длинное употребительное слово-палиндром в мире) или текст (а роза упала на лапу Азора), одинаково читающееся в обоих направлениях.
Проблема в том, что мне нужно, чтобы происходил поиск палиндрома в введенном предложении, а не в одном введенном слове. Учитывая регистр. Сделал, но только для слова:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program p8;
uses crt;
Var
S,B : String;
I : Byte;
Begin
clrscr;
Writeln('Введите строку');
Readln(S);
B:='';
For I:=1 to Length(S) do
B:=S[I]+B;
If B=S Then Writeln('Палиндром') Else Writeln('Не является палиндромом')
end.

@КонецСвета · 10.01.2012, 19:24

Сообщение от 4ePeIIaH

поиск палиндрома в введенном предложении

вот

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
uses crt;
var s,sl,sp: string;
    i,j,k: integer;
begin
write('s=');
readln(s);
if (s[length(s)]<>' ') and (s[length(s)]<>'.') then
   s:=s+'.'; sl:=''; sp:=''; k:=0;
writeln('Слова-палиндромы');
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.') then sl:=sl+s[i] else
       if length(s)>0 then
          begin
          for j:=1 to length(sl) do
              sp:=sl[j]+sp;
          if sp=sl then
             begin
             inc(k);
             write(sl,' ');
             end;
          sl:=''; sp:='';
          end;
if k=0 then writeln('отсутствуют');
end.

но (правильно ли я понимаю?) необходимо еще и выделить предложения, в которых есть слова-палиндромы? если да, намекни =)

@4ePeIIaH · 10.01.2012, 19:30 **[ТС]**

Да нужно. Только он не учитывает регистр. Шалаш - отсутствует. шалаш - палиндром.

@КонецСвета · 10.01.2012, 19:55

вот конструкция, которя позволит обойти верхний или нижний регистр, а над предложениями подумать надо =)

Pascal
1
2
3
4
5
6
7
8
                sk:=uppercase(sl);
                for j:=1 to length(sk) do
                    sp:=sk[j]+sp;
                if sp=sk then
                   begin
                   inc(k);
                   write(sl,' ');
                   end;

@КонецСвета · 11.01.2012, 19:56

ну вот, со всеми пожеланиями =)

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
uses crt;
var s,sl,sp,sk,pr: string;
    e,i,j,k,np: integer;
begin
write('s=');
readln(s);
if (s[length(s)]<>' ') and (s[length(s)]<>'.') then
   s:=s+'.'; sp:=''; pr:='';
for i:=1 to length(s) do
    if s[i]<>'.' then pr:=pr+s[i] else
       begin
       inc(np);
       sl:=''; sp:=''; k:=0;
       for j:=1 to length(pr) do
           if pr[j]<>' ' then sl:=sl+pr[j] else
              if length(sl)>0 then
                 begin
                 sk:=uppercase(sl);
                 for e:=1 to length(sk) do
                     sp:=sk[e]+sp;
                     if sp=sk then
                        inc(k);
                 end;
        writeln ('В ',np,' предложении ',k,' палиндром (а/ов)');
        pr:='';
        end;
end.

@4ePeIIaH · 12.01.2012, 00:05 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@4ePeIIaH 1 / 1 / 0 Регистрация: 10.01.2012 Сообщений: 9
	10.01.2012, 19:30 [ТС]
	Да нужно. Только он не учитывает регистр. Шалаш - отсутствует. шалаш - палиндром. 0

@4ePeIIaH 1 / 1 / 0 Регистрация: 10.01.2012 Сообщений: 9
	12.01.2012, 00:05 [ТС]
	Спасибо! 0