Построить окружность, состоящую из заданного числа дуг случайных цветов — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Похожие записи/страницы: