IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Поменять местами значения множеств
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


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

Не используя дополнительных переменных, поменять местами значения переменных - множеств A и B
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Не используя дополнительных переменных
- только в случае, если множества не содержат одинаковых значений. Если одинаковые значения все-таки есть - то придется заводить еще одну переменную...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


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

Сообщение отредактировано: wEDOK -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Для разных множеств код точно такой же, как и для обмена целых чисел без использования буферной переменной:
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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Можно вот так
a:=a+b-a*b;
b:=a-b+(b-a);
a:=a-b+(b-a);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


О, спасибо, все так просто... просто сами эти множества... не мог себе представить, что и как с ними делать...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


ну не так уж оно просто. нормально.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


В общем, у меня получилось вот так, полностью, может кому пригодится, тут с рандомным заполнением и с четким числом элементов, заданным пользователем (спасибо 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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Amoxicilina In Canada Medicine
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Vergleich Levitra 20mg
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 15:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name