Построить совокупность п концентрических окружностей, окрашенных в случайные цвета - QBasic

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

Построить совокупность п концентрических окружностей, окрашенных в случайные цвета.

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

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

DEFSNG R
DEFINT C, I, N
CLS
INPUT "Vvedite N"; n
 
SCREEN 12
WINDOW (-11, 11)-(11, -11)
 
FOR i = 1 TO n
   r = 10 * RND
   c = 15 * RND + .5
   CIRCLE (0, 0), r, c
NEXT i
END

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

DEFSNG R - предназначена для установки языка программирования в QBasic
DEFINT C, I, N - предназначена для объявления переменных в программе
CLS - предназначена для очистки экрана
INPUTVvedite N; n - предназначена для ввода числа N с клавиатуры
SCREEN 12 - предназначена для установки размера экрана 12
WINDOW (-11, 11)-(11, -11) - предназначена для установки области экрана, которая будет использоваться для рисования
FOR i = 1 TO n - предназначена для выполнения цикла по переменной i от 1 до N
r = 10 * RND - предназначена для вычисления радиуса окружности (r)
c = 15 * RND + .5 - предназначена для вычисления цвета окружности (c)
CIRCLE (0, 0), r, c - предназначена для рисования окружности на экране с заданными параметрами
NEXT i - предназначена для перехода к следующей итерации цикла
END - предназначена для окончания программы