Нарисовать несколько окружностей, центр которых находится на окружности заданного радиуса- QBasic(Бейсик)

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 ( Скачать )

Leave a Comment