Составить программу для определения, является ли введенное предложение палиндромом

@федор михалыч · Регистрация: 24.02.2013

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

Составить программу для определения: является ли введенное предложение палиндромом.
Пример палиндрома: А роза упала на лапу Азора ЗАРАНЕЕ СПАСИБО)))

Новичок · 28.10.2013, 18:06

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

@gazlan · 28.10.2013, 19:30

1. Выбросить все пробелы и знаки препинания
2. Реверсировать строку
3. Если прямая и реверсированная строки совпадают (stricmp) --> палиндром

@ildwine · 28.10.2013, 19:37

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

1. Выбросить все пробелы и знаки препинания

И привести символы к верхнему регистру функцией upcase.

@gazlan · 28.10.2013, 19:46

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

привести символы к верхнему регистру

Не требуется: stricmp

@федор михалыч · 28.10.2013, 19:47 **[ТС]**

маленькими

@ildwine · 28.10.2013, 19:55

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

Не требуется: stricmp

Нет такой функции в паскале

@gazlan · 28.10.2013, 20:07

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

Нет такой функции в паскале

Oops!

Не поглядел, что Pascal :-)

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

@ildwine · 28.10.2013, 20:33

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  s1, s2 : string;
  i, j : byte;  
begin
  writeln('строка:');
  readln(s1);
  s2 := '';  
  for i := 1 to length(s1) do
    if s1[i] in ['А'..'Я', 'а'..'я'] then
    s2 := concat(s2, copy(s1,i,1));
  for j := 1 to length(s2) do
    s2[j] := upcase(s2[j]);
  s1 := ''; 
  for j := length(s2) downto 1 do
    s1:= concat(s1, copy(s2,j,1));  
  if s1 = s2 then writeln('является палиндромом')
    else writeln('является палиндромом');     
   writeln(s1);{удалите после проверки}
   writeln(s2);{удалите после проверки}
  readln
end.

Добавлено через 8 минут
С комментариями:

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
var
  s1, s2 : string;
  i, j : byte;  
begin
  {ввод строки допускаются знаки 
  препинания пробелы и разный регистр букв}
  writeln('строка:');
  readln(s1);
  {формируем строку s2 включая в нее
  только буквы русского алфавита}
  s2 := '';  
  for i := 1 to length(s1) do
    if s1[i] in ['А'..'Я', 'а'..'я'] then
    s2 := concat(s2, copy(s1,i,1));
  {Выставляем в строке s2 регистр букв в "прописные"}
  for j := 1 to length(s2) do
    s2[j] := upcase(s2[j]);
  {Формируем инвертированную строку s1}
  s1 := '';
  for j := length(s2) downto 1 do
    s1:= concat(s1, copy(s2,j,1));  
  {Если прямая s2 и инвертированная s1 строки равны, то палиндром}
  if s1 = s2 then writeln('является палиндромом')
    else writeln('является палиндромом');     
   writeln(s1);{удалите после проверки}
   writeln(s2);{удалите после проверки}
  readln
end.

ВАСИЛЕВС · 28.10.2013, 20:46

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

Pascal
1
2
if s1 = s2 then writeln('является палиндромом')
* * else writeln('является палиндромом');

ildwine, пропустили "не".

@ildwine · 28.10.2013, 20:52

Сообщение от ВАСИЛЕВС

ildwine, пропустили "не".

Ну да, но это мелочи.

Добавлено через 1 минуту
Спасибо

Добавлено через 1 минуту
федор михалыч, окончательный вариант:

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
var
  s1, s2 : string;
  i, j : byte;  
begin
  {ввод строки допускаются знаки 
  препинания пробелы и разный регистр букв}
  writeln('строка:');
  readln(s1);
  {формируем строку s2 включая в нее
  только буквы русского алфавита}
  s2 := '';  
  for i := 1 to length(s1) do
    if s1[i] in ['А'..'Я', 'а'..'я'] then
    s2 := concat(s2, copy(s1,i,1));
  {Выставляем в строке s2 регистр букв в "прописные"}
  for j := 1 to length(s2) do
    s2[j] := upcase(s2[j]);
  {Формируем инвертированную строку s1}
  s1 := '';
  for j := length(s2) downto 1 do
    s1:= concat(s1, copy(s2,j,1));  
  {Если прямая s2 и инвертированная s1 строки равны, то палиндром}
  if s1 = s2 then writeln('является палиндромом')
    else writeln('НЕ является палиндромом');     
   writeln(s1);{удалите после проверки}
   writeln(s2);{удалите после проверки}
  readln
end.

Новичок · 28.10.2013, 21:31

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

И привести символы к верхнему регистру функцией upcase.

А в Паскале есть?Если что,вам сюда Конвертация строк

@ildwine · 28.10.2013, 21:36

Сообщение от Новичок

А в Паскале есть?Если что,вам сюда Конвертация строк

К чему это было написано? Вопрос исчерпан...

Добавлено через 43 секунды
upcase - в паскале есть!

Новичок · 29.10.2013, 00:06

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

upcase - в паскале есть!

Ну раз есть хорошо конечно.Но мало ли,вдруг препод прицепится.

@rangerx · 29.10.2013, 02:34

Эта задача решается одним циклом и парой условий без всякого копирования и инвертирования...

Новичок · 29.10.2013, 12:31

rangerx, ну покажи свой вариант.

@gazlan · 29.10.2013, 12:48

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

одним циклом и парой условий

С невразумительной эмуляцией инвертирования и скачками по знакам препинания :-)

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

@rangerx · 29.10.2013, 13:10

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

Определение того является ли строка палиндромом сводится к последовательному сравнению символов: первого с последним, второго с предпоследним и т.д. Единственное, что(поскольку, в данном случае, строка является предложением), здесь необходимо пропускать(игнорировать) разделители. Вот и всё.

@gazlan · 29.10.2013, 13:25

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

что(поскольку

Как всегда, "дьявол в деталях" :-)

Новичок · 29.10.2013, 15:53

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

здесь необходимо пропускать(игнорировать) разделители. Вот и всё.

А как же регистр букв,а?

Новые блоги и статьи Все статьи Все блоги /
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 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	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. Пошагово создадим проект для загрузки изображения. . .

@федор михалыч 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 29

	Составить программу для определения, является ли введенное предложение палиндромом 28.10.2013, 17:49. Показов 9958. Ответов 36 Метки нет (Все метки) Составить программу для определения: является ли введенное предложение палиндромом. Пример палиндрома: А роза упала на лапу Азора ЗАРАНЕЕ СПАСИБО))) 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	28.10.2013, 18:06
	федор михалыч, а предложение вводиться заглавными буквами или маленькими или и теми и теми буквами? 0

@gazlan 3176 / 1935 / 312 Регистрация: 27.08.2010 Сообщений: 5,131 Записей в блоге: 1
	28.10.2013, 19:30
	1. Выбросить все пробелы и знаки препинания 2. Реверсировать строку 3. Если прямая и реверсированная строки совпадают (stricmp) --> палиндром 1

@федор михалыч 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 29
	28.10.2013, 19:47 [ТС]
	маленькими 0

@rangerx 2022 / 1621 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	29.10.2013, 02:34
	Эта задача решается одним циклом и парой условий без всякого копирования и инвертирования... 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	29.10.2013, 12:31
	rangerx, ну покажи свой вариант. 0

@rangerx 2022 / 1621 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	29.10.2013, 13:10
	Новичок, думаю предыдущим ораторам было бы полезнее решить эту задачу самостоятельно. Или ты сомневаешься, что тут есть другое решение? Определение того является ли строка палиндромом сводится к последовательному сравнению символов: первого с последним, второго с предпоследним и т.д. Единственное, что(поскольку, в данном случае, строка является предложением), здесь необходимо пропускать(игнорировать) разделители. Вот и всё. 0