Изобразить природное или физическое явление: Волны — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
s = .01
i = 0
j = .7
DO WHILE i < 30
        FOR x = 0 TO 7 STEP s
                LINE (x * 100 - s, 50 + 15 * SIN(x - s + j))-(x * 100, 50 + 15 * SIN(x + j))
                LINE (x * 100 - s, 100 + 20 * SIN(x - s + i))-(x * 100, 100 + 20 * SIN(x + i))
        NEXT
        i = i + .3
        j = j + .7
        CLS
LOOP

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

Leave a Comment