Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
lerusik199
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 24
#1

Определить, в каком из множеств больше элементов, не принадлежащих другому множеству

08.12.2017, 16:45. Просмотров 96. Ответов 3
Метки нет (Все метки)

Сформировать множества А и В ,базовый тип которых 10..60,по заданному числу элементов для каждого множества .Определить ,в каком из множеств больше элементов,не принадлежащих другому множеству.Удалить из А все элементы содержащие В.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2017, 16:45
Ответы с готовыми решениями:

Запись и множества. Определить, в каком из множеств больше элементов
Сформировать A, B и C, базовый тип которых 30..70, по заданному числу...

Запись и множества: Определить, в каком из множеств больше элементов
Сформировать A, B и C, базовый тип которых 30..70, по заданному числу элементов...

Определить, в каком из массивов больше положительных элементов
Заданы два одномерные числовые массивы A и B. Определить, в каком из массивов...

Определить в каком из одномерных массивов больше отрицательных элементов
даны два Одномерных массива. Определить в каком из них больше отрицательных...

Дано множество из 15 целых чисел от 1 до 50. Определить, сколько среди них чисел, принадлежащих к множеству Фибоначчи.
Помогите пожалуйста.Вот задание:Дано множество из 15 целых чисел от 1 до 50....

3
Puporev
Модератор
54341 / 41937 / 28974
Регистрация: 18.05.2008
Сообщений: 98,771
08.12.2017, 17:37 #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
46
47
48
49
50
51
52
53
uses crt;
type mnz=set of 10..60;
var a,b:mnz;
    n,m,i,k,ka,kb:byte;
begin
clrscr;
repeat
write('Введите мощность множества А от 10 до 20 n=');
readln(n);
until n in [10..20];
repeat
write('Введите мощность множества B от 10 до 20 m=');
readln(m);
until m in [10..20];
randomize;
a:=[];
for i:=1 to n do
 begin
  repeat
  k:=10+random(51);
  until not (k in a);
  a:=a+[k];
 end;
b:=[];
for i:=1 to m do
 begin
  repeat
  k:=10+random(51);
  until not (k in b);
  b:=b+[k];
 end;
writeln('Множество А');
for i:=10 to 60 do
if i in a then write(i:3);
writeln;
writeln('Множество B');
for i:=10 to 60 do
if i in b then write(i:3);
writeln;
ka:=0;
kb:=0;
for i:=10 to 60 do
if (i in a) and not(i in b) then inc(ka)
else if (i in b) and not(i in b) then inc(kb);
if ka>kb then writeln('В множестве А больше элементов не принадлежащих В')
else if kb>ka then writeln('В множестве B больше элементов не принадлежащих A')
else writeln('В обоих множествах одинаковое число элементов, не принадлежащих другому множеству');
a:=a-b;
writeln('Элементы множества В удалены из множества А');
for i:=10 to 60 do
if i in a then write(i:3);
readln
end.
0
lerusik199
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 24
08.12.2017, 17:47  [ТС] #3
что такое mnz,ka,kb ?
0
Puporev
Модератор
54341 / 41937 / 28974
Регистрация: 18.05.2008
Сообщений: 98,771
08.12.2017, 17:52 #4
mnz это имя типа множеств, ka-количество чисел которые есть в А, но нет в В, kb-тоже для В.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2017, 17:52

Составить программу, которая формирует множество нечетных чисел, принадлежащих множеству
Составить программу, которая формирует множество нечетных чисел . принадлежащих...

Определить в каком массиве больше четных чисел
заданы массивы А915), В(7), С(10), состоящие из положительных и отрицательных...

Определить в каком из массивов минимальный элемент больше
Даны два одномерных массива произвольных чисел.Определить в каком из них...


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

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

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