Построить семь случайных квадратов с общим центром - QBasic

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

CLS
RANDOMIZE TIMER
SCREEN 11
WINDOW (-4, 3)-(4, -3)
 
FOR i = 1 TO 7
   x = 2 * RND
   y = 2 * RND
   PSET (x, y)
   LINE -(-y, x)
   LINE -(-x, -y)
   LINE -(y, -x)
   LINE -(x, y)
NEXT i
END

Решение задачи: «Построить семь случайных квадратов с общим центром»

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

CLS
RANDOMIZE TIMER
SCREEN 11
WINDOW (-4, 3)-(4, -3)
 
FOR i = 1 TO 7
   x = 2 * RND
   y = SQR(5 - x ^ 2)
   PSET (x, y)
   LINE -(-y, x)
   LINE -(-x, -y)
   LINE -(y, -x)
   LINE -(x, y)
NEXT i
END

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

CLS — очистка экрана
RANDOMIZE TIMER — установка генератора случайных чисел
SCREEN 11 — выбор цвета фона экрана (11 - белый)
WINDOW (-4, 3)-(4, -3) — установка области экрана для рисования (в данном случае экран будет меньше на 4 по горизонтали и на 3 по вертикали от верхнего левого угла)
FOR i = 1 TO 7 — цикл, который будет выполняться 7 раз
x = 2 * RND — генерация случайного числа в диапазоне от -2 до 2 (для координаты X)
y = SQR(5 - x ^ 2) — генерация квадратного корня из числа 5 минус квадрат случайного числа (для координаты Y)
PSET (x, y) — рисование точки с координатами (x, y)
LINE -(-y, x) — рисование прямой, проходящей через точку (x, y) и точку (-y, x)
LINE -(-x, -y) — рисование прямой, проходящей через точку (x, y) и точку (-x, -y)
LINE -(y, -x) — рисование прямой, проходящей через точку (x, y) и точку (y, -x)
LINE -(x, y) — рисование прямой, проходящей через точку (x, y) и точку (-x, y)
NEXT i — переход к следующему этапу цикла
END — завершение программы