Разработать программу, которая выводит объединение и пересечение множеств - VB

Узнай цену своей работы

Формулировка задачи:

Даны два множества А и B c различным кол-вом элементов( в программе они в виде проинициализированных массивов). разработать программу, которая выводит объединение и пересечение этих множеств

Решение задачи: «Разработать программу, которая выводит объединение и пересечение множеств»

textual
Листинг программы
  1. CLS
  2.  
  3. DIM A(100) AS LONG
  4. DIM B(100) AS LONG
  5. DIM C(100) AS LONG
  6. DIM D(100) AS LONG
  7.  
  8. A(17) = -1: B(12) = -1
  9. A(33) = -1: B(33) = -1
  10. A(56) = -1: B(56) = -1
  11. A(71) = -1: B(88) = -1
  12.  
  13. FOR i = 1 TO 100
  14.    C(i) = A(i) OR B(i)
  15. NEXT
  16.  
  17. FOR i = 1 TO 100
  18.    D(i) = A(i) AND B(i)
  19. NEXT
  20.  
  21. '----------------------------
  22. PRINT "A =";
  23. CALL AUS(A())
  24. PRINT "B =";
  25. CALL AUS(B())
  26. PRINT "A U B =";
  27. CALL AUS(C())
  28. PRINT "A * B =";
  29. CALL AUS(D())
  30.  
  31.  
  32. PRIVATE SUB AUS (x() AS LONG)
  33.    FOR i = 1 TO 100
  34.       IF x(i) THEN PRINT i;
  35.    NEXT
  36.    PRINT : PRINT
  37. END SUB

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы