Решение. Операции над множествами

Операции над множествами

Множества

Множество – неупорядоченная совокупность неповторяющихся однотипных элементов рассматриваемых как единое целое. В Паскале число элементов исходного множества не может быть больше 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 фамилий. Вывести на экран фамилии, начинающиеся с гласных букв.

Дата добавления: 2014-12-07