R = 10 'Радиус окружностей
R1 = 120 'Радиус окружности на которой будут рисоваться остальные
N = 20 'Количество окружностей радиуса R
SCREEN 12 'Установка видео режима
CIRCLE (320, 240), R1
P = 2 * 3.14 / N
FOR I = 1 TO N
X = COS(P * I) * R1
Y = SIN(P * I) * R1
CIRCLE (
Тестирование выполнено в программе QB64 ( Скачать )