Помощь - Поиск - Пользователи - Календарь
Полная версия: Поменять местами значения множеств
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
wEDOK
Задали тут целую стопку задач, трудности с одной возникают:

Не используя дополнительных переменных, поменять местами значения переменных - множеств A и B
volvo
Цитата
Не используя дополнительных переменных
- только в случае, если множества не содержат одинаковых значений. Если одинаковые значения все-таки есть - то придется заводить еще одну переменную...
wEDOK
ну разные, так разные... только что-то всё равно это мне мало поможет... мне бы код )))
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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.