Множества

Множество -набор однотипных логически связанных друг с другом объектов [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 и подсчитать их количество по множествам.

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

Первая и вторая цифры размерность исходных множеств.

Таблица 1

№ ва- рианта	код		код		код		код
1	1-9-1-1-е	9	4-4-3-9-j	17	4-6-5-8-d	25	5-4-1-6-е
2	2-8-2-2-b	10	5-5-4-1-f	18	3-7-6-9-m	26	5-4-1-6-e
3	3-7-3-3-k	11	6-6-5-2-c	19	2-8-1-5-g	27	6-3-3-9-m
4	4-6-4-4-i	12	9-1-6-3-n	20	5-5-2-6-d	28	7-2-4-7-c
5	5-5-5-5-n	13	8-2-1-4-h	21	6-6-3-7-b	29	8-3-5-9-g
6	6-4-6-6-a	14	7-3-2-5-d	22	4-4-4-8-n	30	6-5-6-8-b
7	7-3-1-7-n	15	6-4-3-6-n	23	3-6-5-6-j	31	1-8-1-9-r
8	8-2-2-8-a	16	5-5-4-7-a	24	2-7-6-9-k	32	2-7-2-8-f

• Операции (третья цифра)

1. *, +

2. *, -

3. +, -

4. +, *

5. -, *

6. -, +

• Тип символов во множествах (четвертая цифра)

1. Латинские прописные буквы.

2. Латинские строчные буквы.

3. Русские прописные.

4. Цифры и латинские прописные буквы

5. Любые символы ПК.

6. Русские строчные.

7. Цифры и латинские строчные буквы.

8. Цифры и любые латинские буквы.

• Множество для проверки принадлежности ему заданных элементов (буква)

1. латинские строчные буквы;

2. «а»…«f»;

3. «»…«»;

4. латинские прописные буквы;

5. «»…«F»;

6. «»…«»;

7. русские строчные буквы;

8. «а»…«n»;

9. «p»…«Я»;

10. русские прописные буквы;

11. «»,«Ъ», «Ы», «Ь»;

12. «» …«И»;

13. все цифры;

14. 1…9;

15. 5…9.

Лабораторная работа 14