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

[naty7773]

Проверить, является ли выражение, состоящие из строчных букв заданной строки, палиндромом (палиндром – слово или выражение, читающееся слева направо или справа налево одинаково, например, «нажал кабан на баклажан»)

Помогите пожалуйста!!!!вобще не знаю,как писать.А без нее зачет не ставят(((((((((

[ByAlex]

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

Проверить, является ли выражение, состоящие из строчных букв заданной строки, палиндромом (палиндром – слово или выражение, читающееся слева направо или справа налево одинаково, например, «нажал кабан на баклажан»)

Помогите пожалуйста!!!!вобще не знаю,как писать.А без нее зачет не ставят(((((((((

Для delphi, только для английского!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
  Str:string;
  F:Boolean;
begin
  F:=True;
  Write('vvedite stroku - ');
  Readln(Str);
  for i:=1 to Length(Str) do
    if Str[i] <> Str[Length(Str)-(i-1)] then
      F:=False;
  if F then
    Writeln('palindrom!')
  else writeln('ne palindrom!');
  readln;
end.

[Serge_Bliznykov]

ByAlex, не очень хороший вариант.
во-первых, не вижу, чтобы у Вас выбрасывались пробелы.
во-вторых, почему "только для английского!" ?!
в-третьих, а зачем цикл по всей длине строки крутить? до середины строки более чем достаточно!
да и в случае, если символы не совпали, цикл дальше крутить бессмысленно - уже можно выходить из цикла
в-четвёртых, str название стандартной процедуры перевода числа в строку, я бы не рекомендовал использовать для названия переменной такой идентификатор...

naty7773, я бы мог привести рабочий пример кода. но, честное слово, на форуме уже были МНОГОКРАТНЕЙШЕ рабочие примеры. поищите по слову палиндром

p.s. удалить все пробелы из строки легко таким кодом:

while pos(' ',s)>0 do Delete(s, pos(' ',s), 1);

[ByAlex]

Согласен полностью! Тот код очень старый. Моя вина, что не стал проверять. Вот переделал.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
  SourceStr:string;
  F:Boolean;
begin
  F:=True;
  Write('vvedite stroku - ');
  Readln(SourceStr);

  while pos(' ',SourceStr)>0 do
    Delete(SourceStr, pos(' ',SourceStr), 1);

  for i:=1 to Length(SourceStr) div 2 do
    if SourceStr[i] <> SourceStr[Length(SourceStr)-(i-1)] then
    begin
      F:=False;
      Break;
    end;

  if F then
    Writeln('palindrom!')
  else writeln('ne palindrom!');
  readln;
end.