35.Фрагменты программ с использованием множеств.

Демонстрацией операций над множествами может служить следующий фрагмент программы:

Program Mnoj_Demo; {демонстрация операций над множествами}

Type

Digits=set of 0..9;

Var

D1, D2, D3, D:Digits;

Begin

D1:=[2,4,6,8]; {заполнение множеств}

D2:=[0..3,5];

D3:=[1,3,5,7,9];

D:=D1+D2; {объединение множеств D1 и D2}

D:=D+D3; {объединение множеств D и D3 }

D:=D-D2; {разность множеств D и D2 }

D:=D*D1; {пересечение множеств D и D1}

end.

Сначала описан тип Digits=set of 0..9, затем описаны переменные D1,D2,D3,D этого типа. В первой части программы осуществляется заполнение множеств, затем над множествами выполняются операции объединения, пересечения, разности.