Как сделать пересечение элементов массива множеств?

@CTAJIuH · Регистрация: 16.02.2014

Author24 — интернет-сервис помощи студентам

Как сделать пересечение элементов массива множеств?
допустим есть массив множеств m
нужно сформировать множество mb в котором будет результат пересечения элементов массива множеств m
пробовал такой вариант, но он не работает(

Pascal

1 2	for i:=1 to n do mb:=mb*m[i];

@volvo · 04.04.2014, 17:19

Сообщение от CTAJIuH

не работает

Чего это не работает? Нормально работает, если только перед началом работы цикла присвоить

Pascal

1	mb := [0 .. 255];

для байтового множества.

Pascal

type
  byteset = set of byte;
const
  n = 5;
  m : array[1 .. n] of byteset = ([1, 5 .. 20], [6 .. 38], [4 .. 100], [1, 5, 15 .. 200], [0 .. 120]);
var
  mb : byteset;
  i : integer;
begin
  mb := [0 .. 255];
  for i := 1 to n do
    mb := mb * m[i]; // mb содержит [15 .. 20], как и положено.
end.

	04.04.2014, 17:19