Разработать программу, которая выводит объединение и пересечение множеств - VB
Формулировка задачи:
Даны два множества А и B c различным кол-вом элементов( в программе они в виде проинициализированных массивов). разработать программу, которая выводит объединение и пересечение этих множеств
Решение задачи: «Разработать программу, которая выводит объединение и пересечение множеств»
textual
Листинг программы
- CLS
- DIM A(100) AS LONG
- DIM B(100) AS LONG
- DIM C(100) AS LONG
- DIM D(100) AS LONG
- A(17) = -1: B(12) = -1
- A(33) = -1: B(33) = -1
- A(56) = -1: B(56) = -1
- A(71) = -1: B(88) = -1
- FOR i = 1 TO 100
- C(i) = A(i) OR B(i)
- NEXT
- FOR i = 1 TO 100
- D(i) = A(i) AND B(i)
- NEXT
- '----------------------------
- PRINT "A =";
- CALL AUS(A())
- PRINT "B =";
- CALL AUS(B())
- PRINT "A U B =";
- CALL AUS(C())
- PRINT "A * B =";
- CALL AUS(D())
- PRIVATE SUB AUS (x() AS LONG)
- FOR i = 1 TO 100
- IF x(i) THEN PRINT i;
- NEXT
- PRINT : PRINT
- END SUB
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д