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

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

textual

Код:

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('Таких слов нет');

Похожие ответы
  1. Определить, имеются ли в тексте слова, составленные из одних и тех же букв, при этом количество повторений каждой буквы во внимание не принимается (например, "малина" и "налим").  

  1. Добрый день!Есть такая задачка, она звучит так: Заменить в тексте все слова, заключенные в кавычки, порядковым номером. Вот мой код задачи:

  1. Подскажите, пожалуйста задачку, она звучит так! Заменить в текстовом файле все слова, заключенные в ковычки, порядковым номером!

  1. Помогите пожалуста решить. Задача: Определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.).

  1. В тексте удалить все слова,заканчивающиеся на буквы "ие" (слова разделены пробелом)

  1. Строка текста содержит слова, пробелы, знаки препинания. Перенос слов со строки на строку запрещен. Текст занимает одну или несколько строк. Выделить в тексте слова, не содержащие знаки данного алфавита.Добавлено через 29 часа 41 минуту UP Добавлено через 15 часов 45 минут АП ! ! !Добавлено через 6 часов 52 минуты UP !!!

  1. Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Определить количество слов и вывести только те слова, количество символов в которых нечетное. Заранее спасибо.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика