Then .

Множества языка Паскаль обладают свойствами математических множеств. В частности, над ними можно выполнять те же операции.

Если S1 и S2 — константы или переменные множественного типа, то S1 + S2 будет их объединением, S1 * S2 – пересечением, S1 - S2 — разностью.

Объединением математических множеств S1 и S2 называется множество, состоящее из элементов, принадлежащих или множеству S1, или множеству S2, или обоим множествам (соответствует союзу or). Обозначается знаком

Пересечение множеств состоит из элементов, одновременно принадлежащих обоим множествам (соответствует союзу and). Обозначается знаком

Разностью называется множество, состоящее из элементов, принадлежащих первому но не принадлежащих второму множеству.

Мощностью множества называется число различных элементов данного множества.

Операции отношений = (равенство) < > (неравенство), < = (является подмножеством), > = (является надмножеством) к множествам применяются, а отношения строгого включения < и > — не применяются.

Иногда в операторе if гораздо удобнее использовать множественный тип:

if ch in alphabet

then... чем, например, пару операций сравнения:

if ((ch> =’A’) and (ch< =’Z’)) or ((ch> =’a’) and (ch< =’z’))

then …

Чтобы добавить в множество какой-нибудь элемент, можно либо добавить множество, состоящее из единственного элемента, либо использовать процедуру Include.

Следующий фрагмент программы формирует множество всех заглавных букв с нечетными кодами [‘A’, ’C’, …, ’Y’]:

Var s: set of 'A'..'Z';

Ch: char;

Begin

s: =[];

Ch: ='A';

Repeat

S: =s+[ch];

Inc(ch, 2);

Until ch> ='Z';

for ch: ='A' to 'Z' do

if ch in s

Then

write(ch, ' ');

End.

Альтернативой оператору S: = S + [ch]; является оператор Include (S, ch). Имеется и обратная процедура Exclude исключения элемента из множества. У этой процедуры два параметра, первый указывает множество, а второй на исключаемый элемент..

Практическая работа

Варианты заданий.

1. Составить программу, определяющую к какому регистру (латинскому или русскому) относится вводимый с клавиатуры символ.

2. Составить программу определяющую, принадлежит ли введенное число множеству всех четырехзначных чисел.

3. Составить программу, определяющую мощность множества. Считать, что множество символов вводится с клавиатуры, признаком конца множества считать символ «точка».

4. Даны три множества Х₁, Х₂, Х₃, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого из этих множеств равна 10. Сформировать новое множество (где знак ^ - это исключающие или, обозначается в Паскале xor) из которого выделить подмножество нечетных чисел. На экран вывести исходные и полученные множества. Значения исходных множеств ввести с клавиатуры.