Работа с множествами

[kira k]

Работа с множествами

Даны два множества целых чисел А и В, значение элементов которых вводятся в диалоговом режиме.
Определить, являются ли множества идентичными и в случае их различия вывести несовпадающие элементы.

 

[Léon1]

Язык программирования не указали.

 

[Vladimir_S]

Язык программирования не указали.

Ладно, на основании помещения в раздел будем считать, что Паскаль. Тогда так:

Var
 M1,M2,M3,M4:Set of Byte;
 i:Byte;
 YN:Char;
 b:boolean;
Begin
 M1:=[];
 M2:=[];
 Writeln('Set1:');
 Repeat
  Write('Next element: ');
  Readln(i);
  M1:=M1+[i];
  Write('Continue? (Y/N): ');
  Readln(YN);
 Until (YN='N') or (YN='n');
 Writeln;
 Writeln('Set2:');
 Repeat
  Write('Next element: ');
  Readln(i);
  M2:=M2+[i];
  Write('Continue? (Y/N): ');
  Readln(YN);
 Until (YN='N') or (YN='n');
 Writeln;
 M3:=M1-M2;
 M4:=M2-M1;
 b:=(M3<>[]) or (M4<>[]);
 If b then
  begin
   if M3<>[] then
    begin
     Writeln('Not coinciding elements of Set1:');
     for i:=0 to 255 do
      if (i in M1) and Not(i in M2) then write(i:4);
     Writeln;
    end;
   if M4<>[] then
    begin
     Writeln('Not coinciding elements of Set2:');
     for i:=0 to 255 do
      if Not(i in M1) and (i in M2) then write(i:4);
    end;
  end
 else
  Writeln('Sets coicide');
 Readln
End.

 

[Léon1]

Ладно, на основании помещения в раздел будем считать, что Паскаль.

Ага, пользователь как появится на форуме - сюрприз устроит, скажет что на Delphi.

 

[Vladimir_S]

Ага, пользователь как появится на форуме - сюрприз устроит, скажет что на Delphi.

Ну... бывает, конечно. Но ничего страшного: паскалевская часть по сути сохраняется, а все эти формы-обвески пускай сам мастрячит.

 

[kira k]

спасибо...но если правда я не очень понимаю работу вашей программы.

 

[Vladimir_S]

спасибо...но если правда я не очень понимаю работу вашей программы.

Так, прежде всего - заметил некоторую неточность в своей программе. Исправил.
Теперь попробую объяснить, как она работает.
Прежде всего, раз речь идет о числовых множествах, вспомним, что единственным типом элементов таких множеств может быть byte (диапазон 0..255). Такие множества и объявляем. Далее начинаем вводить значения элементов обоих множеств. Поскольку число элементов множеств наперед не задается, ввод осуществляем в диалоговом режиме. Как только ответ на вопрос о продолжении становится "N" или "n", ввод прекращается.
Далее находим разности. Множество M3 представляет собой совокупность элементов, входящих в множество М1 и не входящих в М2. М4 - соответственно, наоборот. Если множества М1 и М2 совпадают, то обе разности М3 и М4 оказываются пустыми множествами, и булева переменная-флажок b получает значение false. Если хотя бы одна из разностей не пустая, то b становится true.
Если b получает значение true (множества М1 и М2 не совпадают), то выводятся несовпадающие элементы, причем порознь: сначала список элементов (если таковые имеются) множества М1, не входящих в М2, потом - наоборот. Формируются списки так: прогоняем переменную i от 0 до 255 и если какое-то из значений i имеется в М1 и не имеется в М2, это значение выводится на экран. Потом повторяем такой же цикл с перестановкой множеств М1 и М2.
Если же флажок b получает значение false, то выводится сообщение "Множества совпадают".
Всё!