IN проверка принадлежности; в этой бинарной операции первый элемент — выражение, а второй — множество одного и того же типа; возвращает TRUE , если выражение имеет значение, принадлежащее множеству:
3 in Vset возвращает TRUE;
2*2 in Vset возвращает FALSE.
Дополнительно к этим операциям можно использовать две процедуры. INCLUDE — включает новый элемент во множество. Обращение к процедуре:
INCLUDE (S,I)
Здесь S — множество, I — элемент который необходимо включить во множество.
EXCLUDE — исключает элемент из множества. Обращение: EXCLUDE(S,I)
type
Un=set of 1..255; {определяем универсум}
var
A,Y:Un;
i,j,k: Integer;
begin
A:=[1,2,3,4];
for i:=1 to 255 do
If i in A then
For j:=1 to 255 do
If (j in A) and (j<>I) then
Begin
k:=i+j;
INCLUDE (Y,k); {включаем найденный элемент}
end;
for i:=1 to 255 do
If i in Y then writeln(i); {выводим на экран найденной множество в виде списка}
end.