Èëëþñòðàöèåé îïèñàíèÿ ìíîæåñòâ è îïåðàöèé íàä íèìè ìîæåò ñëóæèòü ïðîãðàììà 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 â îêíå ïðîñìîòðà.
|