Определить количество слов, в которых более трех гласных букв.

[fuzo]

Здравствуйте.
Помогите решить данную задачку.

Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых более трех гласных букв.

При решениии использовать множества.

З.Ы. Ввод осуществляется в Edit1.

[danekne]

А в чем проблема? Определяешь множество гласных, ищешь позицию пробела в строке, копируешь от начала до пробела в другую строку, затем проверяешь каждую букву новой строки на принадлежность к множеству. И ставишь в цикле обработки слова счетчик. Если счетчик перевалил за 3 - тогда слово удовлетворяет условию. И так до конца строки

[fuzo]

А можно кодом а не словами?

[danekne]

Какая конкретно часть кода вызывает затруднения? Если вся - то это freelance. Если нет - то укажите какая из обозначенных мной

[XeruH]

const
  // множество гласных букв
  GlasnieSymb = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я',
                 'А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я'];

var
  s: string;
  i, kolvo, glasnie: Integer;
begin
  s := Edit1.Text;
  glasnie := 0;
  kolvo := 0;
  for i:=1 to Length(s) do
  begin
    if s[i] in GlasnieSymb then inc(glasnie);
    if (s[i]=' ') or (i=Length(s)) then
    begin
      if glasnie > 3 then inc(kolvo);
      glasnie := 0;
    end;
  end;

  if kolvo > 0 then
    s:='Кол-во слов, в которых более 3 гласных: ' + IntToStr(kolvo)
  else
    s:='Слов, в которых более 3 гласных нет';

  ShowMessage(s);
end;

[fuzo]

Благодарствую

[fuzo]

Также множество можно записать более простым способом способом:

var
  m1:set of char;
begin
  m1:=['а'..'я']+['А'..'Я'];
...

[XeruH]

Сообщение от fuzo

Также множество можно записать более простым способом способом:

var
  m1:set of char;
begin
  m1:=['а'..'я']+['А'..'Я'];
...

Только в это множество у вас входят и согласные. И не входят 'ё' и 'Ё'

[fuzo]

Действительно. Немного не то

[fuzo]

Действительно. Немного не то