Иллюстрацией описания множеств и операций над ними может служить программа 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 в окне просмотра. |