На данной программе изображена ракета летящая вправо, как сделать что бы она летела влево? ? всё это в pascalabc. uses graphabc; procedure raketa(x: integer); begin line(x,100,x+100,150); line(x+100,150,x+300,150); line(x+300,150,x+350,200); line(x+350,200,x+300,250); line(x+300,250,x+100,250); line(x+100,250,x,300); line(x,300,x,100); setpencolor(clblack); setbrushcolor(clskyblue ); circle(x+150,200,20); circle(x+200,200,20); circle(x+250,200,20); end; var x: integer; begin x: =5; lockdrawing; repeat clearwindow; x: =x+5; raketa(x); sleep(50); redraw until x> windowwidth end.

Fakla    2   07.05.2019 21:36    0