Вывести множество на экран

@EvilDog17 · Регистрация: 06.01.2018

Author24 — интернет-сервис помощи студентам

Есть 2 множества:

Pascal

1 2	Set1:=[random(10)+1, random(10)+1, random(10)+1, random(10)+1, random(10)+1]; Set2:=[random(10)+1, random(10)+1, random(10)+1, random(10)+1, random(10)+1];

Нужно вывести эти 2 множества.
Я попытался сделать это так:

Pascal

//выводим первое множество
write('Set1: ');
for i:=1 to 10 do
    if i in Set1 then
        write(i:2, '; ');
writeln;
//выводим второе множество
write('Set2: ');
for i:=1 to 10 do
    if i in Set2 then
        write(i:2, '; ');

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

@Puporev · 13.04.2018, 17:29

Сообщение от EvilDog17

во множестве есть повторяющиеся числа

В множестве не может быть повторяющихся чисел, а если есть, значит множество составлено неверно.
Нужно например так.

Pascal

randomize;
set1:=[];
for i:=1 to 5 do
 begin
  repeat;
  x:=1+random(10);
  until not(x in set1);
  set1:=set1+[x];
 end;

@bormant · 14.04.2018, 07:48

Для добавления и исключения элемента есть более эффективные средства:
Include(множество, элемент) и Exclude(множество, элемент).

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	14.04.2018, 07:48	3
	Для добавления и исключения элемента есть более эффективные средства: Include(множество, элемент) и Exclude(множество, элемент). 0