Является ли слово палиндромом?

@leader-neo · Регистрация: 06.03.2011

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

Вот задача
По данной строке определите, является ли она палиндромом (то есть, можно ли прочесть ее наоборот, как, например, слово "топот").

А вот мое решение, но тест программы дает отрицательный ответ (Неправильный формат вывода или Неправильный ответ )

Код

      program polindrom;
      var
      result, a: string;
      i, m: Longint;
      begin
      Readln(a);
      m := length(a);
      for i := 1 to m div 2 Do
      if Copy(a, i, 1) = Copy(a, m - i + 1, 1) Then
      result := 'yes'
      Else
      begin
      result := 'no';
      break;
      end;
      Writeln(result);
      end.

Может поможете найти где ошибка?

@SuPeR XaKer · 24.03.2011, 23:35

Определить, является ли введенная строка палиндромом

@Skippi · 26.03.2011, 00:22

вопервых...
Когда считал строку, тупро пройди и командой if a[i]=' ' then delete(a, i, 1) удали пробелы из строки
вовторых...
затем уже сравни if a[i]=a[m-1] then result:=false
(в самом же начале поставь result:=true) и пробегайся во втором пункте по while (result=true) and (i<m div 2)

@rangerx · 26.03.2011, 13:03

Pascal

function isPal(s: string): boolean;
var
  i,j: integer;
begin
  i:= 1;
  j:= Length(s);
 
  isPal:= (i <= j);
 
  while(i < j) do begin
    if(s[i] <> s[j]) then exit(false);
    inc(i);
    dec(j);
  end;
end;

Добавлено через 4 минуты

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

Когда считал строку, тупро пройди и командой if a[i]=' ' then delete(a, i, 1) удали пробелы из строки

На самом деле ничего удалять не нужно, вот пример на C++.

@leader-neo · 26.03.2011, 14:34 **[ТС]**

Строковый тип данных!!!

Спасибо Suber_][aker

@Dekio · 26.03.2011, 16:16

Не по теме:

Сообщение от leader-neo

Спасибо Suber_][aker

:rofl: leader-neo, ты б лучше копировать научился, а не в программирование лез

@CyberLady · 24.06.2011, 18:54

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

then exit(false); inc(i); dec(j);

что это, для чего они нужны???

@rangerx · 24.06.2011, 20:51

Сообщение от светуська

что это, для чего они нужны???

inc - увеличить значение на 1
dec - уменьшить значение на 1
exit(false) - досрочно выйти из функции вернув в качестве результата false

Новые блоги и статьи
Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .
КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .	Rust или Go? А может C++? hw_wired 28.01.2025 С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .

@leader-neo 0 / 0 / 0 Регистрация: 06.03.2011 Сообщений: 121
		1
	Является ли слово палиндромом? 24.03.2011, 22:00. Показов 16331. Ответов 7 Метки нет (Все метки) Вот задача По данной строке определите, является ли она палиндромом (то есть, можно ли прочесть ее наоборот, как, например, слово "топот"). А вот мое решение, но тест программы дает отрицательный ответ (Неправильный формат вывода или Неправильный ответ ) Код program polindrom; var result, a: string; i, m: Longint; begin Readln(a); m := length(a); for i := 1 to m div 2 Do if Copy(a, i, 1) = Copy(a, m - i + 1, 1) Then result := 'yes' Else begin result := 'no'; break; end; Writeln(result); end. Может поможете найти где ошибка? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	24.03.2011, 23:35	2
	Определить, является ли введенная строка палиндромом 1

@Skippi 2 / 2 / 4 Регистрация: 21.03.2011 Сообщений: 60
	26.03.2011, 00:22	3
	вопервых... Когда считал строку, тупро пройди и командой if a[i]=' ' then delete(a, i, 1) удали пробелы из строки вовторых... затем уже сравни if a[i]=a[m-1] then result:=false (в самом же начале поставь result:=true) и пробегайся во втором пункте по while (result=true) and (i<m div 2) 0

@leader-neo 0 / 0 / 0 Регистрация: 06.03.2011 Сообщений: 121
	26.03.2011, 14:34 [ТС]	5
	Строковый тип данных!!! Спасибо Suber_][aker 0

@Dekio
	26.03.2011, 16:16 #6
	Не по теме: Сообщение от leader-neo Спасибо Suber_][aker :rofl: leader-neo, ты б лучше копировать научился, а не в программирование лез 0

@CyberLady 1 / 1 / 0 Регистрация: 23.03.2011 Сообщений: 134
	24.06.2011, 18:54	7
	Сообщение от rangerx then exit(false); inc(i); dec(j); что это, для чего они нужны??? 0

@rangerx 2022 / 1621 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	24.06.2011, 20:51	8
	Сообщение от светуська что это, для чего они нужны??? inc - увеличить значение на 1 dec - уменьшить значение на 1 exit(false) - досрочно выйти из функции вернув в качестве результата false 0