Объединение множеств

@sabotag_ · Регистрация: 21.03.2018

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

Помогите пожалуйста написать объединение множеств.

А: TextBox1.Text 'множество А
n: TextBox3.Text 'кол-во элементов A
B: TextBox2.Text 'множество B
m: TextBox4.Text 'кол-во элементов B
Результат: TextBox5.Text

@ili1 · 29.03.2018, 08:55

sabotag_
Как вы задаете множества? Нельзя ли по-подробнее?
Элементы множества числа? Или символы? Или набор символов?
Элементы множества вводятся по одному? Или это целая строка
элементов, разделенная к примеру пробелом (запятой, иным символом)?

@sabotag_ · 29.03.2018, 10:22 **[ТС]**

А и В это 2 строки чисел, разделённых между собой пробелом,
n это количество чисел А
m это количество чисел В

Остап Бонд · 29.03.2018, 10:31

sabotag_, пример двух строк и желаемый результат покажите.
Это на тот случай, если наши понятия о множествах и их объединении вдруг не совпадают.

@ili1 · 29.03.2018, 10:54

Остап Бонд,
надо числа выделить из строки и поместить в массив. То есть
у нас будут два массива. После этого надо сравнить эти массивы.
Например
первый элемент массива А сравнивается со всеми элементами
массива В, если равенства не обнаружено, то этот элемент идет
в В. Итак проверка всех элементов массива А. То есть двойной цикл.
после чего массив В выводится на печать
...
примечание
можно конечно ввести еще массив С, который будет объединением А и В

@sabotag_ · 29.03.2018, 13:14 **[ТС]**

Пусть A = {1 2 3 4}, B={3 4 5 6 7}. Тогда
A u B = {1 2 3 4 5 6 7}

Остап Бонд · 29.03.2018, 14:54

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Function UnionAB(ByVal A As String, ByVal B As String) As String
Dim v
A = " " & A & " "
For Each v In Split(B)
  If InStr(A, " " & v & " ") = 0 Then A = A & v & " "
Next
UnionAB = Trim(A)
End Function
 
Sub test()
MsgBox UnionAB("1 2 3 4", "3 4 5 6 7")
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@sabotag_ 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 11

	Объединение множеств 29.03.2018, 00:28. Показов 2031. Ответов 6 Метки нет (Все метки) Помогите пожалуйста написать объединение множеств. А: TextBox1.Text 'множество А n: TextBox3.Text 'кол-во элементов A B: TextBox2.Text 'множество B m: TextBox4.Text 'кол-во элементов B Результат: TextBox5.Text 0

@ili1 Заблокирован
	29.03.2018, 08:55
	sabotag_ Как вы задаете множества? Нельзя ли по-подробнее? Элементы множества числа? Или символы? Или набор символов? Элементы множества вводятся по одному? Или это целая строка элементов, разделенная к примеру пробелом (запятой, иным символом)? 0

@sabotag_ 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 11
	29.03.2018, 10:22 [ТС]
	А и В это 2 строки чисел, разделённых между собой пробелом, n это количество чисел А m это количество чисел В 0

Остап Бонд Заблокирован
	29.03.2018, 10:31
	sabotag_, пример двух строк и желаемый результат покажите. Это на тот случай, если наши понятия о множествах и их объединении вдруг не совпадают. 1

@ili1 Заблокирован
	29.03.2018, 10:54
	Остап Бонд, надо числа выделить из строки и поместить в массив. То есть у нас будут два массива. После этого надо сравнить эти массивы. Например первый элемент массива А сравнивается со всеми элементами массива В, если равенства не обнаружено, то этот элемент идет в В. Итак проверка всех элементов массива А. То есть двойной цикл. после чего массив В выводится на печать ... примечание можно конечно ввести еще массив С, который будет объединением А и В 0

@sabotag_ 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 11
	29.03.2018, 13:14 [ТС]
	Пусть A = {1 2 3 4}, B={3 4 5 6 7}. Тогда A u B = {1 2 3 4 5 6 7} 0

Объединение множеств

Решение