Сформировать движущуюся окружность радиуса r, центр которой перемещается попеременно с обоих направлениях вдоль наклонного отрезка с заданными границами — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
INPUT r
INPUT a, b
SCREEN 7, , 0, 1
  
x = a
y = a
sx = 8
sy = 5
  
WHILE INKEY$ = ""
        PCOPY 0, 1
        CIRCLE (x, y), r, 0
        PAINT (x, y), 0
  
        x = x + sx
        y = y + sy
  
        CIRCLE (x, y), r, 15
        PAINT (x, y), 15
  
        IF y > b OR y < a THEN sy = -sy: sx = -sx
  
        t = TIMER
        WHILE t = TIMER
        WEND
WEND

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