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. Чтобы ракета полетела влево, нужно лишь поменять плюс на минус. Или нужно еще и саму ракету развернуть?