CLS
SCREEN 12
'center
cx = 300
cy = 200
r = 200
k = .017
FOR i = 1 TO 5
xn = cx + COS(i * 72 * k) * r
yn = cy - SIN(i * 72 * k) * r
CIRCLE (300, 200), 200, , 72 * k, 72 * i * k
PRINT xn
PRINT yn
PRINT "---"
CIRCLE (xn, yn), 10
NEXT i
Результат работы программы
Тестирование выполнено в программе QB64 ( Скачать )