Множества в Делфи

[dima-intro]

помогите в написании. с множествами трудно очень.

[Вадим Мошев]

Разве операция "Исключающее ИЛИ (сумма по модулю два)" определена для множеств? Или это симметрическая разность?

[dima-intro]

да,это симметрическая разность

[Вадим Мошев]

Конкретно у вас в чём проблема? Что вызывает трудности?

[dima-intro]

с пересечением мне все ясно.
вот именно с остальными 2-мя действиями проблема

[dima-intro]

очень нуждаюсь в помощи
буду чрезмерно благодарен

[Rin]

С={1,2,3,4,5,6}
A={1,2,3,4,8,9}
B=С/А={1,2,3,4,5,6}-{1,2,3,4,8,9}={1,2}
B=C ⊕ A ={1,2,3,4,5,6}⊕{1,2,3,4,8,9}={5,6,8 ,9}
Если вас интересует реализация алгоритма, то на каком языке?

[TinMan]

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

Если вас интересует реализация алгоритма, то на каком языке?

Rin, прочти название темы

[Rin]

ЭЭЭЭ... . Спать пора. (я отмазался) ))))
У тебя, кроме массивов, которые в задании, нужно определить ещё несколько для сохранения промежуточных результатов.
Для С/А

const n=7;
m=5;
var c:array[1..m] of integer;
a:array[1..n] of integer;
c_minus_a:array of integer;
i,j,ca:integer;
da:bbolean;
begin
  ca:=0;
  for i:=1 to m do
  begin
    da:=false;
    for j:=1 to n do if c[i]=a[j] then da:=true;
    if not da then
    begin
      ca:=ca+1;
      setlength(c_minus_a,ca);
      c_minus_a[ca-1]:=c[i];
    end;
  end;
end;

для симметричной разности так:

const n=7;
m=5;
var c:array[1..m] of integer;
a:array[1..n] of integer;
c_raznost_a:array of integer;
i,j,ca:integer;
da:bbolean;
begin
  ca:=0;
  for i:=1 to m do
  begin
    da:=false;
    for j:=1 to n do if c[i]=a[j] then da:=true;
    if not da then
    begin
      ca:=ca+1;
      setlength(c_raznost_a,ca);
      c_raznost_a[ca-1]:=c[i];
    end;
  end;
  for i:=1 to n do
  begin
    da:=false;
    for j:=1 to m do if c[j]=a[i] then da:=true;
    if not da then
    begin
      ca:=ca+1;
      setlength(c_raznost_a,ca);
      c_raznost_a[ca-1]:=a[i];
    end;
  end;
end;

Этот алгоритм вытекает из формулы: А⊕В=(А/В)U(В/А)
Вот и всё.
OFF TOP
А действительно, пора спать.

[TinMan]

Гм. Я, наверное, совсем запутался в обозначениях..
Почему так:

B=С/А={1,2,3,4,5,6}-{1,2,3,4,8,9}={1,2}

- а? Казалось бы должно быть {5,6}.

И вообще, я бы лучше сделал две функции: одну для перегонки массива в множество, а вторую - обратно. Переводишь массивы в множества, делаешь, что надо, а потом снова в массив. По условию, это массивы _символов_ - так что все должно быть тип-топ. Да и в заголовке темы есть намек на множества.. ))