Перейти к содержанию
СофтФорум - всё о компьютерах и не только

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


Рекомендуемые сообщения

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

Ссылка на комментарий
Поделиться на другие сайты

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. Гласные английские, соответственно, и работает программа с английскими словами. Если нужно русские - нужно подкорректировать эту строку, все остальное без изменений.

Изменено пользователем Тролль
Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

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

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...