Объединение двух множеств 3 - QBasic

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

Заданы два множества (смотрите в операторе DATA) Перевести эти множества в вид массивов. И произвести операцию объединения. примечание данная программа, в отличие от предыдущих работает с целыми числами и нулём в частности

                    Листинг программы
                
 
                        
                          
                    
REM
REM  THEORY OF SETS
REM
 
CLS
DATA  7, -200, -177
DATA  0, -177,  200
 
CONST n = 200
CONST m = -200
DIM x(m TO n) AS STRING
DIM y(m TO n) AS STRING
DIM z(m TO n) AS STRING
 
FOR i = 1 TO 3
   READ u
   x(u) = LTRIM$(STR$(u))
NEXT
 
FOR i = 1 TO 3
   READ u
   y(u) = LTRIM$(STR$(u))
NEXT
 
FOR i = m TO n
   IF x(i) <> "" THEN z(i) = x(i)
   IF y(i) <> "" THEN z(i) = y(i)
NEXT
 
FOR i = m TO n
   IF z(i) <> "" THEN PRINT z(i); " ";
NEXT
END

Решение задачи: «Объединение двух множеств 3»

Листинг программы

DATA  7, -200, -177
DATA  0, -177,  200
 
CONST n = 200
CONST m = -200
DIM z(m TO n) AS LONG, i AS LONG, j AS LONG, u AS LONG
 
FOR j = 1 TO 2
FOR i = 1 TO 3
   READ u
   z(u) = -1
NEXT i, j
FOR i = m TO n
   IF z(i) THEN PRINT i;
NEXT
PRINT

Объяснение кода листинга программы

В первой строке кода заданы данные для объединения множеств, в виде чисел 7, -200, -177, а также 0, -177, 200.
Далее, определены константы n и m, которые задают размер массива z и границы для циклов.
Затем, объявлен массив z размером m до n, а также переменные i, j, u.
Внутренний цикл for выполняется два раза, в каждой итерации внутреннего цикла, внешний цикл for выполняется три раза.
В каждой итерации внутреннего цикла, считывается значение переменной u, и элемент массива z(u) устанавливается в -1.
После завершения циклов, начинается еще один цикл for, который выполняет проверку на ненулевое значение элементов массива z, и выводит их индексы.
В конце кода выводится символ PRINT.