Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Максим_макс
1 / 1 / 2
Регистрация: 12.03.2013
Сообщений: 164
#1

Сформируйте новое множество У=(Х1∩ X2) U (X2 U X3) и выведите на экран его мощность

18.05.2013, 18:38. Просмотров 1039. Ответов 1
Метки нет (Все метки)

Ребята,помогите пожалуйста!!!

Заданы три множества Х1, Х2, Х3, которые содержат целые числа из диапазона 100..200.
Известно, что мощность каждого из этих множеств равна 10. Сформируйте новое
множество У=(Х1∩ X2) U (X2 U X3) и выведите на экран его мощность. Является ли Х1
подмножеством У и принадлежит ли число 150 множеству У.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2013, 18:38
Ответы с готовыми решениями:

Множества. Сформируйте новое множество и определите его мощность

Множества. Сформируйте новые множества и выведите их на экран

Определите и выведите на экран множество целых чисел находящихся одновременно в строках массива
Определите и выведите на экран множество целых чисел находящихся одновременно в строках массива ...

Сформируйте новое множество Y=(X U Z) ∩ (Х U T)\ (Z U T) из заданных
Заданы три множества Х={1,2,3, ..., 20}, Z={10,11,...,30} , T={1,3,5,...,19,21}. Сформируйте новое...

Программа, формирующая новое множество X=(Y1∩Y2)U(Y1\Y2)
Помогите пожалуйста написать программу формирующую новое множество X=(Y1∩Y2)U(Y1\Y2)

1
Kodzaev
3003 / 1892 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
18.05.2013, 20:14 #2
Лучший ответ Сообщение было отмечено Максим_макс как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Type
  MySet = Set of Byte;
Var
  y,x1,x2,x3: MySet;
  i,m: Byte;
{---------}
Procedure PrintSet(h: MySet);
var i: Byte;
begin
  For i:=100 to 200 do
  If i in h Then
  Write(i,' ');
  Writeln
end;
{---------}
BEGIN
Randomize;
x1:=[];
x2:=[];
x3:=[];
For i:=1 to 10 do
begin
  Include(x1,Random(101)+100);
  Include(x2,Random(101)+100);
  Include(x3,Random(101)+100);
end;
Writeln('X1: ');
PrintSet(x1);
Writeln('X2: ');
PrintSet(x2);
Writeln('X3: ');
PrintSet(x3);
y:=x1*x2+(x2+x3);
Writeln('Y: ');
For i:=100 to 200 do
If i in y Then
begin
  Write(i,' ');
  Inc(m);
end;
Writeln('Мощность множества Y = ',m);
Writeln('Является ли X1 подмножеством Y? Ответ: ',x1<=y);
Writeln('Принадлежит ли число 150 множеству Y? Ответ: ',150 in y);
Readln
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2013, 20:14

В консольном приложении сформируйте двумерный массив указанным в задании способом и выведите его на экран.
Помогите написать программу. В консольном приложении сформируйте двумерный массив указанным в...

сформируйте и выведите на экран массив из n элементов, где каждый элемент массива равен произведению двух предыдущих и его порядкового номера
1)сформируйте и выведите на экран массив из n элементов, где каждый элемент массива равен...

Сформируйте и выведите на экран массив из 9 элементов,
помогите, пожалуйста, решить задачу. Сформируйте и выведите на экран массив из 9 элементов,каждые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru