maksimilian Posted May 25, 2010 Report Share Posted May 25, 2010 Найти все слова в заданном тексте, которые начинаются с гласной буквы, а заканчиваются на согласную букву. Quote Link to comment Share on other sites More sharing options...
maksimilian Posted May 25, 2010 Author Report Share Posted May 25, 2010 реализация через паскаль текст может быть произвольным Quote Link to comment Share on other sites More sharing options...
Тролль Posted May 25, 2010 Report Share Posted May 25, 2010 (edited) 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 Тролль Quote Link to comment Share on other sites More sharing options...
maksimilian Posted May 25, 2010 Author Report Share Posted May 25, 2010 спасибо Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.