строки в паскале

[maksimilian]

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

[maksimilian]

реализация через паскаль текст может быть произвольным

[Тролль]

maksimilian:

Вообще-то для таких вопросов есть специальная тема, помечченная как "важная" - "Заказы "Сделайте все за меня", А вдруг прокатит?"... Но это на будущее.

var t,m:string; i,k:integer;beginreadln(t); writeln; k:=0; t:=t+' '; m:='aeiouyAEIOUY';for i:=1 to length(t) do if t[i]>='0' then k:=k+1 else if k<>0 then begin if(pos(t[i-k],m)<>0)and(pos(t[i-1],m)=0)then writeln(copy(t,i-k,k)); k:=0 end;readln end.

Тут я гласные перечислил в строке m. Гласные английские, соответственно, и работает программа с английскими словами. Если нужно русские - нужно подкорректировать эту строку, все остальное без изменений.

Edited May 25, 2010 by Тролль

[maksimilian]

спасибо