В тексте найти слова, начинающиеся и оканчивающиеся на гласные буквы - Pascal

Формулировка задачи:

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


textual

Код к задаче: «В тексте найти слова, начинающиеся и оканчивающиеся на гласные буквы - Pascal»

const rz=[' ','.',',','-','?','!'];//символы, разделители слов, можно добавить
      gl=['A','E','I','O','U']; //гласные буквы английского алфавита
//........................................................
//читаем строку из файла
s:=' '+s;//добавим пробел в начало
n:=length(s);
i:=2;
f:=0;
while i<=n do
if not(s[i] in rz)and (s[i-1] in rz) then//если не разделитель
                                         //и перед ним разделитель, то начало слова*
 begin
  k:=i;
  s1:='';
  while (k<=n) and not(s[k] in rz) do //пока не разделитель и не конец строки
   begin
    s1:=s1+s[k];
    k:=k+1;
   end;
  if (upcase(s1[1])in gl)and(upcase(s1[length(s1)])in gl) then
   begin
    writeln(s1);
    k:=1;
   end;
  i:=i+length(s1);
 end
else i:=i+1;{пропускаем разделители}
writeln(' ');
if f=0 then write('Таких слов нет');
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.250 из 5

Источник
Похожие ответы