Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
3 / 3 / 2
Регистрация: 19.12.2011
Сообщений: 103
1

Строка: Разработать программу, которая определяет, является ли данный текст палиндромом

19.06.2012, 01:43. Показов 3166. Ответов 6
Метки нет (Все метки)

Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет, является ли данный текст палиндромом, читается ли он слева направо так же, как и справа налево (например, «А роза упала на лапу Азора», «кабак»).

Добавлено через 3 часа 52 минуты
За программу будет не большое вознаграждение!
 Комментарий модератора 
Работы за оплату можно заказывать только в группе разделов фриланса. Например, здесь: Фриланс - Заказать программу. В других разделах обсуждение оплаты запрещено правилами форума.
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2012, 01:43
Ответы с готовыми решениями:

Разработать программу, которая определяет конфигурацию ПК на языке Borland Delphi
Разработать программу, которая определяет конфигурацию ПК на языке Borland Delphi/ Кто поможет с...

Написать программу, которая определяет является ли заданная точка внутренней точкой треугольника
1)Даны координаты трех вершин треугольника ABC и дана координата 4-ой точки D. Написать программу...

Написать функцию, которая определяет, является ли строка палиндромом
Всем привет! Облазил весь интернет, но так и не нашел решение задачи, не могу понять что означает...

Написать программу, которая определяет, заданное число является палиндромом
Условия задачи, которые нужно написать: 2. Написать программу, которая определяет, заданное...

6
Мишка Косолапый :)
284 / 254 / 86
Регистрация: 15.02.2012
Сообщений: 1,511
19.06.2012, 07:43 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function IsPalindrome(const s : string) : boolean;
var
  i, j : integer;
begin
  i := 1;
  j := length(s);
  result := false;
  repeat
    if s[i] <> s[j] then
      exit;
    inc(i);
    dec(j);
  until i > j;
  result := true;
end;
Эта функция проверяет, является ли строка, передаваемая в параметре s, палиндромом.

Пример использования:

На форме находятся TButton и TEdit.

По нажатию кнопки делаем следующее:
Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsPalindrome(Edit1.Text) then
    ShowMessage('Слово в Edit - палиндром')
  else
    ShowMessage('Слово в Edit палиндромом не является');
end;
1
1084 / 570 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
19.06.2012, 13:42 3
zuxa-zuxa,
1. У тебя функция будет всегда возвращать результат true.
2. Второе увидешь сам кода, когда первое исправишь
1
Эксперт Python
4464 / 1898 / 343
Регистрация: 17.03.2012
Сообщений: 9,717
Записей в блоге: 5
19.06.2012, 13:58 4
Цитата Сообщение от zuxa-zuxa Посмотреть сообщение
if s[i] <> s[j] then
неа. пробелы не учитываются.
1
1084 / 570 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
19.06.2012, 14:01 5
Цитата Сообщение от dondublon Посмотреть сообщение
неа. пробелы не учитываются.
Я же написал,
Цитата Сообщение от antikiler_ Посмотреть сообщение
2. Второе увидешь сам кода, когда первое исправишь
1
Эксперт Python
4464 / 1898 / 343
Регистрация: 17.03.2012
Сообщений: 9,717
Записей в блоге: 5
19.06.2012, 14:03 6
надо как-то так:
Delphi
1
2
3
4
5
6
uses  StrUtils;
 
function IsPalindrome(ASource: string): boolean;
begin
    result := lowerCase(ASource) = LowerCase(ReverseString(ReplaceStr(Asource, ' ','')) )
end;
Добавлено через 54 секунды
Цитата Сообщение от antikiler_ Посмотреть сообщение
Я же написал,
тощна-тощна, сорри.
1
22 / 22 / 6
Регистрация: 04.08.2011
Сообщений: 103
23.06.2012, 11:41 7
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function pole(s:string):boolean;
var
i,j:integer;
begin
i:=1;
j:=length(s);
result:=true;
 if (s[i]=s[j]) or (s[i]=' ') or (s[j]=' ')then
   repeat
   if s[i]=' ' then delete(s,i,1);
   if s[j]=' ' then delete(s,j,1);
   lowercase(s[i]);
   lowercase(s[j]);
   if i>= j then exit;
   inc(i);
   dec(j);
   until s[i]<>s[j]
 else result:=false;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2012, 11:41

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Составить программу, которая определяет, является ли заданное натуральное число палиндромом
Палиндром — это сочетание символов, которые читаются одинаково в прямом и обратном направлениях....

Разработать программу которая определяет является ли число кратное трем
разработать программу которая определяет является ли чило кратное трем

Является ли данный текст палиндромом?
Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет,...

является ли данный текст палиндромом
Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.