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

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

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment