Pascal. Является ли введенная фраза 'автосимметричной'

[Poopy]

Pascal.
Является ли введенная фраза 'автосимметричной'?Этим термином обозначим фразы,в которых совпадают первый символ с последним,второй с предпоследним и т.д.
Помогите дальше доделать.

var
s:string;
i,h,f:integer;
begin
writeln('Введите фразу');
readln(s);

h:=length(s);
if s[1] =s[h] then 
writeln('Слово автосимметрично')
else 
writeln('Слово не автосимметрично');
end.

_____
1) Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
2) Название темы должно отражать суть решаемой задачи (читайте правила форума!)
Модератор

[Serge_Bliznykov]

  writeln('Введите фразу');
  readln(s);
  h:=Length(s);
  f:=1; // признак, что фраза является автосимметричной
  for i:=1 to h div 2 do
    if s[i]<>s[h+1-i] then begin
      f:=0; { признак, что фраза НЕ является автосимметричной }
      break; {и прервали цикл}
    end;

  if f=1 
   then writeln('Фраза автосимметрична')
   else  writeln('Фраза не автосимметрична');

[Poopy]

writeln('Введите фразу');
readln(s);
h:=Length(s);
f:=1; // признак, что фраза является автосимметричной
for i:=1 to h div 2 do
if s[i]<>s[h+1-i] then begin
f:=0; { признак, что фраза НЕ является автосимметричной }
break; {и прервали цикл}
end;

if f=1
then writeln('Фраза автосимметрична')
else writeln('Фраза не автосимметрична');

не работает

[Serge_Bliznykov]

как именно не работает? Не компилируется? Выдаёт ошибку при работе? Если да - то какую именно ошибку?
если не ошибку, тогда укажите фразу, которую Вы вводите и что именно Вам выдаёт программа.

честное слово, такое впечатление, что это мне нужно, а не Вам!!

[Poopy]

Когда ввожу так называемое "автосимметричное" слово,пишет что слово не автосимметрично

[Serge_Bliznykov]

всё работает. значит, Вы вводите НЕ АВТОСИММЕТРИЧНУЮ фразу.

дополните код программы выдачей сообщения о введённой фразе.
ну, например,

  writeln('Введите фразу');
  readln(s);
  h:=Length(s);
  WriteLn('Вы ввели фразу>',s,'< длиной ',h,' букв.' );
  f:=1; // признак, что фраза является автосимметричной

и тогда увидите, где Вы ввели не симметрично. (предполагаю, что Вы лишние пробелы вводите либо в начале, либо в конце, либо - внутри.)

[Poopy]

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

[Serge_Bliznykov]

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

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

тот код, что я Вам написал, именно так и проверяет - первую букву с последней, вторую с предпоследней, третью с пред-предпоследней и т.д.
если все пары совпали, то фраза автосимметрична, если хоть в одном месте несовпадение, то фраза не является автосимметричной.

Вы, когда проверяете, какую фразу вводите для проверки?!

[FPaul]

Возможно, имеется ввиду не строка-палиндром, а строка, которую нужно анализировать без учёта разделителей слов и регистра букв. Наподобие

А роза упала на лапу Азора.
.арозА упал ан алапу азор А

Но пусть ТС уточнит.

[Stilet]

'автосимметричной'

ППЦ, это теперь так преподы палиндромы называют?? О_о
Не-е-е... В мое время и трава зенелее и ласточка свеснее была...