Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Поменять местами значения множеств

Автор: wEDOK 13.04.2008 20:54

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

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

Автор: volvo 13.04.2008 21:21

Цитата

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

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

Автор: wEDOK 13.04.2008 23:14

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

Автор: volvo 13.04.2008 23:42

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

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 14.04.2008 9:48

Можно вот так

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

Автор: wEDOK 14.04.2008 19:59

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

Автор: Michael_Rybak 16.04.2008 4:59

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

Автор: wEDOK 27.04.2008 17:32

В общем, у меня получилось вот так, полностью, может кому пригодится, тут с рандомным заполнением и с четким числом элементов, заданным пользователем (спасибо 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 11.11.2021 11:14

Amoxicilina In Canada Medicine

Автор: buy zithromax without prescripti 20.12.2021 23:58

Vergleich Levitra 20mg