Описать множества и сравнить их

[Tata.8383]

привет!помогите пожалуйста решить задачу: Опишите множества M1(1,2) и M2(2,1). Сравните их на равенство.

[Asix]

Что Вы делали и что не получается?
Какие есть свои мысли?? =))

Для начала нам интересны Ваши мысли и действия для решения задачи, дальше мы обязательно поможем и подталкнем =))

[Tata.8383]

у меня щас их вообще нет

[Asix]

Мы не решаем за Вас, мы помогаем Вам понять!

Прочитайте теорию и пишите свои мысли. Будем вместе думать =))

[testtest]

Код: [Выделить]

  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Добро пожаловать GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Напечатайте :h и нажмите Ввод для получения справки.

[1]> (equal '(1 2 3) '(1 2 3))
T
[2]> (equal '(1 2 3) '(1 2 4))
NIL
[3]>



[Tata.8383]

program zadacha1;
uses crt;
const M1=[1,2];
M2=[2,1];
begin clrscr;
if M1=M2 then writeln('множество М1 равно множеству М2')
else writeln('Множество М1 неравно множеству М2');
readln;
end.
но мне кажется что она не совсем правильно.

[Tata.8383]

мне вывод не очень нравится, слишком простая.

[testtest]

можно отобразить элементы множества на битовую карту и сделать XOR

[Tata.8383]

напишите как это