{* Задача317 *}

REM basic

' Построить окружность, состоящую из заданного числа дуг случайных цветов.


SCREEN 13
Const pi2 = 6.28318531#
RANDOMIZE TIMER
INPUT "Vvedite kol-vo dyg: ", kd
clr = 2
 
For i = 0 To kd
        clr = clr + 1
        Do While u < pi2 / kd
                u = u + .01
                PSET (160 + SIN(u + i * pi2 / kd) * 50, 100 - COS(u + i * pi2 / kd) * 50), clr
        Loop
        u = 0
Next
End