обработка строки

[Bek]

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

[Sazary]

Итак. Раз нужны гласные, то определим множество гласных:

const mn=['a','e','i','o','u','y'];

Слова разделяются пробелами и, может, еще чем-нибудь. Определим множество разделителей:

razd = [' ','.',',','!','&',';',':'];

У нас есть исходная строка. Нам понадобятся еще строка, в которой будет храниться текущее самое длинное слово. А также строка-буфер.

var
s,wrd,buf : string;

Т.к. мы будем идти по строке, но нужен счетчик. И еще переменная для длины строки (исходной).

i,len : integer;

Началась программа. Чистим экран. Далее читаем строку.

readln(s);

Счетчик пока на первом символе. В len занесем длину строки.

i:=1;
len:=length(s);

Изначально wrd пустой.

wrd := '';

Теперь сам цикл. Идем по строке.

while i<=len do

Пропустим все разделители.

 while (s[i] in razd) and (i<=len) do inc(i);

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

if not (s[i] in mn) then

Если нет, то пропускаем это слово:

while (not(s[i] in razd)) and (i<=len) do inc(i)

Если является, то прочитаем это слово в буфер.

 else
  begin
  buf := '';
  while (not(s[i] in razd)) and (i<=len) do
   begin
   buf := buf + s[i];
   inc(i);
   end;

Теперь проверим, длиннее ли оно того слова, которое было запомнено ранее:

if length(buf)>length(wrd) then

и если да, то

wrd := buf;

Цикл закончен. Теперь нужно вывести это слово наоборот.

for i:=length(wrd) downto 1 do
 write(wrd[i]);

Вот и все. Теперь соберите все вместе.