множества

[мики]

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

[Serge_Bliznykov]

var s : string;
  YouLetters : set of char;
  i : integer;
  ch : char;
begin 
  s := 'тут ВАШ ПрОсТой Текст Для ПРоБы ВЫБорки';
  YouLetters := [];
  for i:=1 to length(s) do
    if s[i] in ['А'..'Я'] then
            include(YouLetters, s[i]);

  {а теперь напечатаем все выбранные буквы}
   for ch:='А' to 'Я' do
     if ch in YouLetters then Write(ch,' ');
   WriteLn;

p.s. писал прямо тут, на форуме, могут быть опечатки/неточности...

[ROMA2PVT]

Program alf;
Uses crt;
Var i: byte; s:string;
YouLetters : set of char;
ch : char;
Begin
Clrscr;
write('Введите строку: ');
read(s);
YouLetters :=[];
For i:=1 to length(s) do
if s[i] in ['а','е','и','о','у','ы','э','ю','я'] then
include(YouLetters, s[i]);
 Write('Строчные гласные буквы: ');
for ch:='а' to 'я' do
     if ch in YouLetters then Write(ch,' ');
End.

[Grag]

Ребята, все это хорошо, но только вы применяете не множественные типы данных, а перечислимые (порядковые). Нужны то именно множества...
Set of char - слишком много, аж 255 символов, как нужных, так и не нужных...

[ROMA2PVT]

Program alf;
Uses crt;
Const
glasn=['а','е','и','о','у','ы','э','ю','я'];
type kl=set of 'а'..'я';
Var i: byte;
s:string;
YouLetters: kl;
ch : char;
Begin
Clrscr;
write('Введите строку: ');
read(s);
YouLetters :=[];
For i:=1 to length(s) do
if s[i] in  glasn then
include(YouLetters, s[i]);
 Write('Строчные гласные буквы: ');
for ch:='а' to 'я' do
     if ch in YouLetters then Write(ch,' ');
End.

Тогда вот так.Честно говоря мы даж не проходили множества.Grag если не трудно объясните самому интересно.Щас верно или нет?

[Stilet]

Grag если не трудно объясните самому интересно.

Я признаться тоже не очень понял что автор назвал "множественным типом"

[Grag]

Да вроде верно...

[ROMA2PVT]

Спасибо. Ато я думал затуплю щас и не сделаю прогу.Вот теперь буду знать как с множествами делать.

Я признаться тоже не очень понял что автор назвал "множественным типом"

Да частенько бывает трудно понять что автор имеет ввиду.Просто нужно пояснять и пример давать.

[Grag]

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

Я признаться тоже не очень понял что автор назвал "множественным типом"

Есть несколько типов данных:
-простые
-структурированные
-указатели
-строки
-процедурные
-объекты.

Простые: порядковые и вещественные. Порядковые еще делятся на целые, логические, символьные, перечислимые, тип-диапазон.
Структурированные: массивы, записи, множества и файлы
Вот именно эти самые множества из структурированных типов и имелись ввиду, а не порядковые или перечислимые или диапазон...

[Serge_Bliznykov]

Grag, Вы и правы и неправы одновременно!

Правы в определении, что же такое множество в Pascal
неправы в том, что называете вышеуказанные программы "порядковые или перечислимые или диапазон... "

если где-то в программе set of ... — то это и есть множественный тип данных!

основное отличие от порядковых, перечисляемых типов:
множество может быть максимум 255 элементов.
Элементы множества НЕ ИМЕЮТ порядковых номеров (т.е. к ним недопустимы операции ORD() PRED() и т.д.
Для множеств определены операции включения (INCLUDE) и исключения (Exclude) элементов.
опеределеная операция проверки вхождения элемента в множество. ( элемент IN множество )


вот, цитирую из курса лекций по Pascal
(c) Интернет-Университет Информационных Технологий
(текст не полный, цитата оборвана, дальше там тоже про множества...)

Множества
Еще один структурированный тип данных - это множество (set). В нем может содержаться не более 256 элементов.

Важное отличие множества от остальных структурированных типов состоит в том, что его элементы не являются упорядоченными.

Описание множеств
В разделе var множества описываются следующим образом:

var <имя_множества>: set of <тип_элементов_множества>;
Элементы могут принадлежать к любому порядковому типу, размер которого не превышает 1 байт (256 элементов). Например:

var s1: set of char; {множество из 256-ти элементов}
s2: set of 'a'..'z','A'..'Z'; {множество из 52-х элементов}
s3: set of 0..10; {множество из 11-ти элементов}
s4: set of boolean; {множество из 2-х элементов}
Множество-константа
Неименованная константа
Множество можно задать неименованной константой прямо в тексте программы. Для этого необходимо заключить список элементов создаваемого множества в квадратные скобки:

[<список_элементов>]
Список элементов может быть задан перечислением элементов нового множества через запятую, интервалом или объединением этих двух способов. Элементы и границы интервалов могут быть переменными, константами и выражениями. Если левая граница интервала окажется больше правой, результатом будет пустое множество.

Примеры конструирования и использования различных множеств:

if c in ['a','e','i','o','u']
then writeln('Гласная буква');
if set1 < [k*2+1..n,13] then set1:=[];
....

вот