из заданной строки текста вывести в алфавитном порядке все содержащиеся гласные буквы (Паскаль)

[zzz6]

Дана строка текста, заканчивающая точкой. Вывести в алфовитном прорядке все содержащиеся в тексте гласные буквы.

как то начал. но не до конца

var a:array['A'..'Z'] of integer;
    c, cmax: char;
    f:text;
begin
  assign(f,'text.txt');
  reset(f);
  for c:='A' to 'Z' do a[c]:=0;
  repeat

поскажите что нибуть

___________
ПОДСКАЗЫВАЮ!

1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
Не экономьте буквы, раскрывайте тему полнее!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

1) вы не конкретизировали, гласные буквы какого языка? Русские? Английские?

2) откуда взялся файл?! Если речь идёт о тексте (строке), то обычной переменной типа String вполне достаточно...

3) как Вы правильно начали решать, задача действительно на использование множеств (множественного типа данных).
решается примерно так:

var s : string;
  i : integer;
  ch : char;
  RezultSet  : set of char;
begin
   Readln(s);
   i := 1;
   RezultSet := []; 
   while (i<=Length(s)) and (s[i]<>'.') do begin
     if s[i] in ['a','A','e','E','y','Y','u','U','i' ,'I','o','O']
       then Include(RezultSet, s[i]);
     inc(i)
   end;

   WriteLn;
   for ch:='A' to 'z' do
     if ch in RezultSet 
       then Write(ch);
   Writeln;
   readln
end.

[zzz6]

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

1) вы не конкретизировали, гласные буквы какого языка? Русские? Английские?

2) откуда взялся файл?! Если речь идёт о тексте (строке), то обычной переменной типа String вполне достаточно...

3) как Вы правильно начали решать, задача действительно на использование множеств (множественного типа данных).
решается примерно так:

var s : string;
  i : integer;
  ch : char;
  RezultSet  : set of char;
begin
   Readln(s);
   i := 1;
   RezultSet := []; 
   while (i<=Length(s)) and (s[i]<>'.') do begin
     if s[i] in ['a','A','e','E','y','Y','u','U','i' ,'I','o','O']
       then Include(RezultSet, s[i]);
     inc(i)
   end;

   WriteLn;
   for ch:='A' to 'z' do
     if ch in RezultSet 
       then Write(ch);
   Writeln;
   readln
end.

Русские....

if s[i] in ['à','À','î','Î','ó','Ó','û','Û', 'ý' ,'Ý','ÿ','ß','å','Å','¸','¨','þ','Þ ','è','È']
перепечатал все гласные.. что надо еще изменить?
чтоб работала?

[zzz6]

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

Русские....

if s[i] in ['à','À','î','Î','ó','Ó','û','Û', 'ý' ,'Ý','ÿ','ß','å','Å','¸','¨','þ','Þ ','è','È']
перепечатал все гласные.. что надо еще изменить?
чтоб работала?

А все разобрался сам.... спасибо за помощь.

[Serge_Bliznykov]

не за что...
вообще, для вывода элементов из множества вполне можно (а иногда и ОБЯЗАТЕЛЬНО НУЖНО) писать цикл перебора ВСЕХ возможных значений множества, а не отдельных, определённых, как в моём примере...

в общем случае (для вывода ЛЮБОГО множества типа set of char, конечно) подойдёт такой код

var ch : char;
   RezultSet  : set of char;
....
begin
    .... тут заполнение RezultSet как нужно...

   { вывод содержимого множества RezultSet }
   for ch:=#0 to #255 do
     if ch in RezultSet then WriteLn('Символ: ',ch,' код символа: ', ord(ch));