в ряду символов определить слова, которые могут быть получены разворотом другого слова этой строки (Паскаль)

[Mr. J.]

Господа, мне нужна ваша помощь!
Мне задали написать прогу в паскале а я понятия не имею как это сделать

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

Заранее спасибо что решили мне помочь)

[ZX Spectrum-128]

Палиндромы что ли нужно найти?
http://pas1.ru/palindrome

[Mr. J.]

нет, к сожалению
нужно каждое слово в ряду развернуть и проверить на наличие уже развёрнутого весь ряд

[Smitt&Wesson]

Сообщение от Mr. J.

Мне задали написать прогу в паскале а я понятия не имею как это сделать

С колокольни сподручьней. Обзор, шире.

[Mr. J.]

Сообщение от Smitt&Wesson

С колокольни сподручьней. Обзор, шире.

Я не полный дурак в массивах делал что задавали, а теперь задали строки, но лектор заболел, по этому и спрашиваю

[ZX Spectrum-128]

Сообщение от Mr. J.

Я не полный дурак в массивах делал что задавали, а теперь задали строки, но лектор заболел, по этому и спрашиваю

Строка - это массив. Так что работаете также.

[Smitt&Wesson]

Сообщение от ZX Spectrum-128

Строка - это массив. Так что работаете также.

Согласен. char(100), эквивалентно snrings, с той разицей, что 100 будет выделена статически, а srtrings - динамически. Есть тонкости, которые для Вас не сещественны. При статическом выделении, увеличивается быстродейсвие (ну, это-уж не про современные машины). Проигрышь в 1-2 микросекунды, уже никого не волнует.

[Poma][a]

Смитт, все это будет спорно до тех пор, пока ТС не объявит компилятор..

[Smitt&Wesson]

Сообщение от Poma][a

Смитт, все это будет спорно до тех пор, пока ТС не объявит компилятор..

Я, в общих чертах. Компиляторов много (Linch) - для каждого прсессоа. А язык один . Как-бы не хотелось извратиться.

[Stilet]

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

Пример строки в студию.
Очень подозреваю что нужно что-то типа:

i:=pos(' ',s);
while i<>0 do begin
 if pos(rev(copy(s,1,i-1)),s)<>0 then write(copy(s,1,i-1));
 delete(s,1,i);
 i:=pos(' ',s);
end;

Где

function rev(s:string):String; var i:integer; q:string;
begin for i:=Length(s) downto 1 do q:=q+s[i]; rev:=q; end;