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

[Борис65]

Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка. Составить программу, в которой напечатать в алфавитном порядке все гласные буквы, которые входят хотя бы в одно слово более двух раз.
Гласные буквы – а, е, и, о, у, ы, э, ю, я;
Помогите пожалуйста на паскале написать задача на множества.

[Cuprum5]

Странно, я вроде знаю Паскаль, а что такое множество не разу не слышал. Так что это такое?

[Борис65]

Множество - это совокупность объектов, рассматриваемая как одно целое.

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

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

Сранно, я вроде знаю Паскаль, а что такое множество не разу не слышал. Так что это такое?

set

[Serge_Bliznykov]

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

Сранно, я вроде знаю Паскаль, а что такое множество не разу не слышал. Так что это такое?

шутите?
http://mif.vspu.ru/books/pascal/sets.html
http://www.pascal.helpov.net/index/p...ts_programming
http://comp-science.narod.ru/Progr/mn.htm
http://wiki.freepascal.org/Set
https://www.tutorialspoint.com/pascal/pascal_sets.htm
....

Сообщение от Борис65

Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка. Составить программу,....

поиском пользовались? задачи подобного рода часто встречаются, в т.ч. и на нашем форуме.

[Cuprum5]

А, понятно, это set короче.

Ну изучайте множеста, тогда, автор темы, что я еще могу сказать-то.

[Борис65]

подобные есть но они очень сильно отличаются

var
  s: string;
  w: array [1..20] of string;
  begin
  whiteln('Введите 10 слов,разделенными пробелами и в корне стоит точка');
  readln();
  begin

  for i:=1 to 20 do w[i]:='';   // очищаем массив слов
  k:=0;                   // обнуляем количество слов
  for i:=1 to Length(s) do       // проходим по строке
    if UpCase(s[i]) in ['A'..'Z'] then    // если буква ..
    else              // если нет ..
      if w[k]<>'' then Inc(k);   // переходим к следующему слову
  if not (UpCase(s[Length(s)]) in ['A'..'Z']) then Dec(k);  // особая ситуация в конце строки
end.

[Cuprum5]

Блин, я думал файл нужно прочитать. Уже ссылку для Вас приготовил для изучения:
http://nschool.by/text.php?cat=begin&textid=51
:D

Сообщение от Борис65

w: array [1..20] of string;

- ну заведите массив от 1 до 10, для начала.

Сообщение от Борис65

readln();
begin

- вот это не надо, по-моему.
Нужно ввести массив слов в цикле, как-то так, наверное, не знаю даже:

for i:=1 to 10 do ReadLn(w[i]);

Еще ошибка. Если пользоваться переменной, то сначала ее нужно объявить:

Сообщение от Борис65

k:=0; //обнуляем количество слов

- вот это не будет работать пока Вы ее не объявите в начале программы:

var
k: integer;

не то)

[Cuprum5]

Как нето?! Все то, чот ты меня лечишь! Выбирай способ ввода данных: с консоли или из файла и за учебу! Все, ссылки я дал.

[Борис65]

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

Как нето?! Все то, чот ты меня лечишь! Выбирай способ ввода данных: с консоли или из файла и за учебу! Все, ссылки я дал.

да я не вам