Нарисовать движущуюся змейку. Змейка должна состоять из линий и передвигаться с помощью того, что последняя линия гаснет и в то же время появляется новая впереди — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PAINT (5, 5), 15
  
sections = 10
xh = 50
yh = 100
  
WHILE xh < 640 AND INKEY$ = ""
        FOR i = 0 TO sections - 1
                LINE (xh - 10 * i, yh)-(xh - 10 * i - 10, yh - 10), 6, BF
                LINE (xh - 2 - 10 * i, yh - 2)-(xh + 2 - 10 * i - 10, yh - 10 + 2), 4, BF
        NEXT i
        LINE (xh - 10 * sections, yh)-(xh - 10 * sections - 10, yh - 10), 15, BF
        xh = xh + 10
  
        t = TIMER
        WHILE t = TIMER
        WEND
WEND

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