Нарисовать движущуюся машину — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SCREEN 12
FOR x=0 TO 640 STEP 5
CLS
CIRCLE (x,240), 25
CIRCLE (x+100,240), 25
LINE (x+30,240)-(x+70,240)
LINE (x-50,240)-(x-30,240)
LINE (x+150,240)-(x+130,240)
LINE (x+150,240)-(x+150,190)
LINE (x-50,240)-(x-50,190)
LINE (x-50,190)-(x-10,190)
LINE (x+110,190)-(x+150,190)
CIRCLE (x+50,190),60 ,, 0 , 3.14
CIRCLE (x,240),30 ,, 0 , 3.14
CIRCLE (x+100,240),30 ,, 0 , 3.14

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

Leave a Comment