Объединение двух множеств 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


textual

Код к задаче: «Объединение двух множеств 3 - QBasic»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.375 из 5

Источник