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