1 Тема від tasina009

  • tasina009
  • Користувач
  • Поза форумом
  • Дата реєстрації: 23.11.2016
  • Повідомлень: 8
    • Репутація: 0

Тема: Булеан множини Visual Basic

Звертаюся з проблемою, потрібно реалізувати програму на мові програмування - Visual Basic, яка буде виконувати так званий Powerset(булеани множини), тобто якщо маємо множину S = {a, b, c, d}, то її булеани будуть P(S) = {},{a},{b},{c},{d},{a,b},{a,c},{a,d},{b,c},{b,d},{c,d},{a,b,c},{a,b,d},{a,c,d},{b,c,d},{a,b,c,d}. Програма повинна виконуватись до 9 символів, тобто 128 булеанів.
Буду дуже вдячний за будь-яку допомогу)

2 Відповідь від koala Востаннє редагувалося koala (01.03.2017 23:08:53)

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 601
    • Репутація: 13310

Re: Булеан множини Visual Basic

Красивий спосіб: перебираєте числа від 0 до 2^n-1 (n-кількість елементів у множині), записуєте в двійковій системі і додаєте ті елементи, у відповідних яким розрядах стоять 1. Наприклад, для {a,b,c}:

     cba
0 = b000 => {}
1 = b001 => {a}
2 = b010 => {b}
3 = b011 => {b,a}
4 = b100 => {c}
5 = b101 => {c,a}
6 = b110 => {c,b}
7 = b111 => {c,a,b}

upd Додав шапку, так зрозуміліше?

Подякували: 0x9111A, /KIT\2

koala вебсайт

3 Відповідь від tasina009

  • tasina009
  • Користувач
  • Поза форумом
  • Дата реєстрації: 23.11.2016
  • Повідомлень: 8
    • Репутація: 0

Re: Булеан множини Visual Basic

Не дуже розумію це, але дуже вдячний за допомогу, спробую розібратись у цьому.