Пжл помогите зделать заачу по теме String.

[Therion]

Вывести на экран слова-палиндроми (читаются слева направо и справа налево одинаково), которые содержатся в тексте.
Зарание спасибо!!!

[vovk]

а можно увидеть что сделано? ну в смысле что не получается то?

[Лубышев]

вот вам функция полиндрома:

function polindrom(s:string):string;
var i:integer;
result:string;
begin
i:=length(s);
result:='';
while i>0 do
  begin
    result:=result+s[i];
    dec(i);
  end;
  polindrom:=result;
end;

а использовать можно так:
допустим есть s:string;

if s=polindrom(s) then...

Ну вот и все. Открываешь файл на чтение, пробегаешь по каждой строке
и если эта строка s=polindrom(s) то выводишь на экран

[Serge_Bliznykov]

Ну вот и все. Открываешь файл на чтение, пробегаешь по каждой строке
и если эта строка s=polindrom(s) то выводишь на экран

ну, нигде не сказано, что каждое слово - это отдельная строка! Поэтому прийдётся отпарсить текст - разбирая его на отдельные слова, и эти слова уже проверять на "палиндромность"...

[Лубышев]

О блин не подумал.

[Therion]

Большое спасибо, вы мне очень помогли.