Поменять местами значения множеств Опции

[wEDOK]

Задали тут целую стопку задач, трудности с одной возникают:

Не используя дополнительных переменных, поменять местами значения переменных - множеств A и B

[volvo]

Не используя дополнительных переменных

- только в случае, если множества не содержат одинаковых значений. Если одинаковые значения все-таки есть - то придется заводить еще одну переменную...

[wEDOK]

ну разные, так разные... только что-то всё равно это мне мало поможет... мне бы код )))

Сообщение отредактировано: wEDOK - 13.04.2008 23:15

[volvo]

Для разных множеств код точно такой же, как и для обмена целых чисел без использования буферной переменной:

type
  T = set of byte;

var a, b: T;

begin
  a := [1, 3, 6, 7];
  b := [2, 4, 8, 22];

  a := a + b;
  b := a - b;
  a := a - b;
end.

[Client]

Можно вот так

a:=a+b-a*b;
b:=a-b+(b-a);
a:=a-b+(b-a);

[wEDOK]

О, спасибо, все так просто... просто сами эти множества... не мог себе представить, что и как с ними делать...

[Michael_Rybak]

ну не так уж оно просто. нормально.

[wEDOK]

В общем, у меня получилось вот так, полностью, может кому пригодится, тут с рандомным заполнением и с четким числом элементов, заданным пользователем (спасибо Clientу, можно менять местами с одинаковыми значениями):

Код

Uses crt;
var A,B: set of Char; nA,nB,k,r:integer;
Begin
  Repeat
    Write ('Vvedite kolichestvo simvolov vo mnogestve A, ne bolshe 255:');
    Readln (nA);
  Until nA < 255;
  Repeat
    Write ('Vvedite kolichestvo simvolov vo mnogestve B, ne bolshe 255:');
    Readln (nB);
  Until nB < 255;

  Randomize;
  Write('A: ');
  For k:=1 to nA do
    begin
    r:= 32+random(224);
    If (chr(r) in A) then
      nA:=nA+1
    Else
      begin
        Include(A,chr(r));
        Write(chr(r));
      end;
    end;

  Writeln;
  Write('B: ');
  For k:=1 to nB do
   begin
    r:= 32+random(224);
    If (chr(r) in B) then
      nB:=nB+1
    Else
      begin
        Include(B,chr(r));
        Write(chr(r));
      end;
    end;

  A:=A+B-A*B;
  B:=B-A+(A-B);
  A:=A-B+(B-A);

  Writeln;
  Writeln ('Posle zameni:');
  Write('A: ');
  For r:=33 to 255 do
    If (chr(r) in A) then Write(chr(r));

  Writeln;
  Write('B: ');
  For r:=33 to 255 do
    If (chr(r) in B) then Write(chr(r));
End.

[prednisone without a prescriptio]

Amoxicilina In Canada Medicine

[buy zithromax without prescripti]

Vergleich Levitra 20mg