Множество (Структурированный тип данных)

данных.
Количество элементов от 0 до 255.
Описание типа производится

в разделе
TYPE <имяТипа> = SET of <базовыйТип>;
множество из
или
VAR <имяПерем>: SET of <базовыйТип>;
<базовыйТип> - любой порядковый тип, из целых – только ВУТЕ (нельзя WORD, Integer, LogInt, ShortInt).
Пример:
TYPE dchar = SET of '1'..'9'; {базовый – символьный тип- диапазон} digit=SET of 0..9; {базовый – поддиапазон типа BYTE}
VAR S1,S2,S3: dchar; {символы}
S4,S5,S6,S7: digit; {цифры}
конструктор множества [ ]
Пример: S1:=['1','2','3']; S4:=[0..3,7];
S2:=['2','1','3']; S5:=[4,6];
S3:=['1','2']; S6:=[3..8]; S7:=[]; {пустое}

над множествами:
1. * пересечение множеств содержит элементы, общие для обоих

множеств. (S4*S6 содержит [3,7]; S4*S5 образует пустое мн.).
2. + объединение множеств содержит элементы первого множества, дополненные недостающими элементами второго.
S4+S5 содержит [0,1,2,3,4,6,7] S5+S6 содержит [3,4,5,6,7,8]
3. - разность множеств содержит элементы из первого множества, которые не принадлежат второму.
S6 - S5 содержит [3,5,7,8])
S4 - S5 содержит [0,1,2,3,7]) [ ]-S4 даст [ ].
4. Операции отношений:
= операция эквивалентности
значение TRUE (S1= S2; ['1','2','3'] = ['2','3','1'])
<> -неэквивалентности (TRUE для [1,2] <> [1] S3<>S2)
<= проверка вхождения (Пример. [1]<=[1,2]; )
>= проверка вхождения
in - операция проверки принадлежности
Бинарная операция: <выражение> in <множество>;

S5
2*2 in

S4 - FALSE;
компактное машинное представление
Недостаток: невозможность вывода множества на экран
Пример: Включить элементы во множество из входного потока до точки.
VAR
S:SET of char; {переменная-множество}
C:char; элемент множества
Begin
S:=[ ]; { S := #0;} обнуление значений
{ REPEAT {цикл до ввода ".“} }
while C <> '.' do
begin
read(C); {чтение символа в с}
S:=S+[C]; {добавление его к S}
end;
{ Until C = '.' }
S:=S - ['.']; {исключение точки}
End.

R, напечатать его элементы. Есть ли в R двоичные цифры
Program

Mnog13;
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.

- ввести два множества M1 и М2 с размерами, указанными

1 и 2 цифрами, а тип символов указан цифрой 4 в таблице 1;
- выполнить для них заданную операцию (цифра 3);
- проверить, входят ли исходные множества в результат операции, а результат в исходные множества;
- проверить, равны ли множества;
- проверить, принадлежат ли элементы, указанные буквой в коде варианта, раздельно множеству M1 или М2 и подсчитать их количество по множествам.
Наименование пунктов в коде:
Первая и вторая цифры размерность исходных множеств.
3 – операции,
4 – тип символов,
5 - буква для проверки принадлежности

*
-, *
-, +

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

прописные буквы.
Латинские строчные буквы.
Русские прописные.
Цифры и латинские прописные буквы
Любые символы ПК.
Русские строчные.
Цифры и латинские строчные буквы.
Цифры и любые латинские буквы.
Цифры и русские буквы.

буквы;
«Α»…«F»;
«Χ»…«Ζ»;
латинские строчные буквы;
русские строчные буквы;
«а»…«н»;
«p»…«я»;
русские прописные буквы;
«Ε»,«Ъ», «Ы», «Ь»;
«Α» …«И»;
все

цифры;
1…9;
5…9.
В Л.Р.14 В модуле UNIT r_pos; исправить: вместо функции min должна быть max -
function max(d:mass):integer;