** данной программе изображена ракета летящая вправо, как сделать что бы она летела...

Question

НА данной программе изображена ракета летящая вправо, как сделать что бы она летела влево?? Всё это в 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.

Answer 1

Ответ:

x := x + 5 заменить на x := x - 5

Объяснение:

Переменная x отвечает за положение ракеты на экране, каждый цикл эта переменная увеличивается на 5. Чтобы ракета полетела влево, нужно лишь поменять плюс на минус. Или нужно еще и саму ракету развернуть?