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

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

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

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

Новичок · 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

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

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

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

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

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

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	29.10.2013, 00:06	14
	Сообщение от ildwine upcase - в паскале есть! Ну раз есть хорошо конечно.Но мало ли,вдруг препод прицепится. 0

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

@gazlan 3176 / 1935 / 312 Регистрация: 27.08.2010 Сообщений: 5,131 Записей в блоге: 1
	29.10.2013, 12:48	17
	Сообщение от rangerx одним циклом и парой условий С невразумительной эмуляцией инвертирования и скачками по знакам препинания :-) Программы надо писать не так, чтобы их можно было понять, а так, чтобы нельзя было не понять. 0

@федор михалыч 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 29
		1
	Составить программу для определения, является ли введенное предложение палиндромом 28.10.2013, 17:49. Показов 9517. Ответов 36 Метки нет (Все метки) Составить программу для определения: является ли введенное предложение палиндромом. Пример палиндрома: А роза упала на лапу Азора ЗАРАНЕЕ СПАСИБО))) 0

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

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

@ildwine Супер-модератор 6197 / 2945 / 1300 Регистрация: 04.03.2013 Сообщений: 5,790 Записей в блоге: 1
	28.10.2013, 19:37	4
	Сообщение от gazlan 1. Выбросить все пробелы и знаки препинания И привести символы к верхнему регистру функцией upcase. 0

@gazlan 3176 / 1935 / 312 Регистрация: 27.08.2010 Сообщений: 5,131 Записей в блоге: 1
	28.10.2013, 19:46	5
	Сообщение от ildwine привести символы к верхнему регистру Не требуется: stricmp 0

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

@ildwine Супер-модератор 6197 / 2945 / 1300 Регистрация: 04.03.2013 Сообщений: 5,790 Записей в блоге: 1
	28.10.2013, 19:55	7
	Сообщение от gazlan Не требуется: stricmp Нет такой функции в паскале 0

@gazlan 3176 / 1935 / 312 Регистрация: 27.08.2010 Сообщений: 5,131 Записей в блоге: 1
	28.10.2013, 20:07	8
	Сообщение от ildwine Нет такой функции в паскале Oops! Не поглядел, что Pascal :-) По привычке, кажется, что программы можно только на С писать. 0

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	28.10.2013, 21:31	12
	Сообщение от ildwine И привести символы к верхнему регистру функцией upcase. А в Паскале есть?Если что,вам сюда Конвертация строк 0

@ildwine Супер-модератор 6197 / 2945 / 1300 Регистрация: 04.03.2013 Сообщений: 5,790 Записей в блоге: 1
	28.10.2013, 21:36	13
	Сообщение от Новичок А в Паскале есть?Если что,вам сюда Конвертация строк К чему это было написано? Вопрос исчерпан... Добавлено через 43 секунды upcase - в паскале есть! 1

	29.10.2013, 15:53

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

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

@gazlan 3176 / 1935 / 312 Регистрация: 27.08.2010 Сообщений: 5,131 Записей в блоге: 1
	29.10.2013, 13:25	19
	Сообщение от rangerx что(поскольку Как всегда, "дьявол в деталях" :-) 0

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	29.10.2013, 15:53	20
	Сообщение от rangerx здесь необходимо пропускать(игнорировать) разделители. Вот и всё. А как же регистр букв,а? 0