Упражнение 1

Иллюстрацией описания множеств и операций над ними может служить программа Dem_Mno, в которой описаны множества чисел D, D1, D2, D3. Затем они заполнены следующим образом: множество D1 – четными числами 2, 4, 6, 8; множество D2 – числами 0, 1, 2, 3, 5; множество D3 – нечетными числами 1, 3, 5, 7, 9. После этого над множествами выполнены операции объединения, разности и пересечения.

program Dem_Mno: {Демонстрация операций над множествами}

type Digits = set of 0..9:

var

Dl. D2. D3. D : Digits:

begin

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

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

D3:=[1.3.5.7,9];

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

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

D:=D — D2: {Разность множеств D и D2}

D:=D * Dl: {Пересечение множеств D и 01}

end.

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

Для проверки работы программы запустите интегрированную среду программирования. Введите текст программы Dem_Mno и запишите файл на диск под соответствующим именем, а затем откомпилируйте его. Так как в Pascal отсутствуют средства ввода-вывода элементов множества, то работу программы придется проверять, выполняя ее в пошаговом режиме и отслеживая изменения значений переменных Dl, D2, D3, D в окне просмотра.