Построить совокупность n квадратов с общим центром - QBasic

Построить совокупность п квадратов с общим центром.

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

CLS
 
INPUT "N = "; n
SCREEN 11
WINDOW (-12, 9)-(12, -9)
 
FOR i = 1 TO n
   LINE (-8 / i, 8 / i)-(8 / i, -8 / i), , B
NEXT i
 
END

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

CLS — команда очистки экрана
INPUT N =; n — ввод числа n с клавиатуры
SCREEN 11 - установка размера экрана 11
WINDOW (-12, 9)-(12, -9) — установка области вывода на экран
FOR i = 1 TO n — начало цикла для перебора от 1 до n
LINE (-8 / i, 8 / i)-(8 / i, -8 / i), , B — рисование линии с координатами (-8/i, 8/i) и (-8/i, -8/i) с шагом 1/i и цветом B
NEXT i — переход к следующей итерации цикла
END — конец программы