На данной программе изображена ракета летящая вправо, как сделать что бы она летела влево? ? всё это в 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.
x := x + 5 заменить на x := x - 5
Объяснение:
Переменная x отвечает за положение ракеты на экране, каждый цикл эта переменная увеличивается на 5. Чтобы ракета полетела влево, нужно лишь поменять плюс на минус. Или нужно еще и саму ракету развернуть?