Решение
Операции над множествами
Множества
Множество – неупорядоченная совокупность неповторяющихся однотипных элементов рассматриваемых как единое целое. В Паскале число элементов исходного множества не может быть больше 256. В качестве базового типа элементов множества могут быть использованы byte, char, перечислимый тип, а также диапазоны, образованные из них.
В отличие от элементов массива элементы множества не упорядочиваются и не нумеруются. Действия выполняются не над отдельными элементами множества, а над всем множеством.
Формат описания типа множества:
Type <имя_типа> = set of <тип_элементов>;
Пример:
Type
digit = set of 0..9;
sim = set of ’a’..’z’;
zn = set of (plus, div);
Переменные типа множество описываются в разделе var:
Var
Number : digit;
Bukva : sim;
Тип-множество можно указать непосредственно при описании переменных:
Var
Number : set of 0..9;
Bukva : set of ’a’..’z’;
Значением переменной может быть множество всевозможных сочетаний элементов исходного множества. В программе множество задается с помощью специальной синтаксической конструкции, называемой конструктором множества. Он представляет собой список элементов множества, заключенный в квадратные скобки. Элементы списка разделяются запятыми:
[0, 3..5, 8]
[’a’..’c’, ’x’]
В каждое множество включается пустое множество, не содержащее никаких элементов:
[ ]
Инициализировать переменную множественного типа можно с помощью оператора присваивания:
Number := [ 0, 3..5, 8];
Bukva := [’a’..’c’, ’x’];
Для множеств определены следующие операции:
1. Объединение.
Результат содержит все элементы первого множества, дополненные недостающими элементами из второго множества:
[1, 2, 3]+[3,5]=[1, 2, 3, 5]
2. Пересечение.
Результат содержит общие элементы множеств.
[1, 2, 3]*[3,5]=[ 3]
3. Разность.
Результат содержит те элементы первого множества, которые не входят во второе множество.
[1, 2, 3]-[3,5]=[ 1, 2]
4. Операции отношения:
а) = если оба множества равны, результат – истина, иначе –ложь.
б) <> если множества не равны, результат - истина, иначе – ложь.
в) <= если первое множество включено в второе, результат – истина, иначе – ложь.
г) >= если второе множество входит в первое, результат – истина, иначе ложь.
д) IN вхождение. Проверяет, принадлежит ли элемент множеству.
Задача
Инициализировать множество M, состоящее из латинских букв a, b, c и d.
Инициализировать множество N, состоящее из латинских букв p и r.
Получить множество K объединением множеств M и N.
Проверить, принадлежит ли введенный символ множеству K.
Вывести на экран элементы множества K.
Program Mnozh;
Uses CRT;
Type
Tmn=Set of 'a'..'z';
Var
K,M,N:Tmn;
C,I:Char;
Begin
ClrScr;
M:=['a'..'d'];
N:=['p','r'];
K:=M+N;
Write('Введите символ->');
Readln(C);
If C in K
Then
Writeln
('Символ принадлежит множеству')
Else
Writeln
('Символ не принадлежит множеству');
For I:='a' to 'z'do
If I in K
Then
Writeln(I);
Readkey;
End.
Домашнее задание:
Ввести список из 12 фамилий. Вывести на экран фамилии, начинающиеся с гласных букв.