Множества

Множество - набор однотипных логически связанных друг с другом объектов [1].

Объявление переменных типа «множество» производится в следующем виде:

Var <Имя Переменной>: SET of <базовый тип>;

где <Имя Переменной> - правильный идентификатор ТП, <базовый тип> - тип элементов множества, в качестве которого может применяться любой порядковый тип кроме Word, Integer, Long Int, Short Int.

Над множествами определены операции пересечения (*); объединения (+); раз-ности (-); операции отношений: эквивалентности (=), неэквивалентности (< >), проверки вхождения (< = и >=), проверки принадлежности элемента множеству (in).

Структура бинарной операции принадлежности, возвращающей значение TRUE, если выражение (элемент) принадлежит указанному множеству, имеет вид

<выражение или элемент> in <множество>.

Пример: Ввести два множества по пять цифр. Найти множество разности R, напечатать его элементы.

Program Mnog13;

Uses Crt, Graph;

Type

MN=set of 0..9; {множество цифр}

Var

S1, S2, R: MN;

i, x, y: byte;

BEGIN

s1:=[];

s2:=[];

writeln('Введи 2 множества по 5 чисел по 2 числа в строке');

for i:=1 to 5 do

begin

read(x, y);

s1 := s1 + [x];

s2 := s2 + [y];

end;

R:= s1-s2; {Разность}

if R<=s1 then writeln('Разность входит в S1');

if NOT(R<=s2) then writeln('Разность не входит в S2');

for i:=0 to 9 do

if i in R then writeln('R содержит цифру - ', i)

for i:=0 to 1 do

if i in R then writeln('В R есть двоичная цифра - ', i)

else writeln('Двоичная цифра ', i, ' не входит в R ');

END.

Задание 1 (программа 13_1)

Разработать программу c заданным индивидуальным кодом (табл. 1), в которой

- ввести два множества M1 и М2 с размерами, указанными 1 и 2 цифрами, а тип символов указан цифрой 3 в таблице 1;

- выполнить для них заданную операцию (цифра 3);

- проверить, входят ли исходные множества в результат операции, а резуль-тат в исходные множества;

- проверить, равны ли множества;

- проверить, принадлежат ли элементы, указанные буквой в коде варианта, раздельно множеству M1 или М2 и подсчитать их количество по множествам.

Наименование пунктов в коде: