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

Answer 2

Чтобы сделать ракету летящей влево, нужно изменить координаты всех линий и окружностей в процедуре raketa. Конкретно, координаты точек для рисования линий и окружностей нужно пересчитать, чтобы ракета двигалась влево. В данном коде это можно сделать, поменяв знаки координат x на противоположные:

pascalCopy code
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 := WindowWidth - 5;
  LockDrawing;

  repeat
    ClearWindow;
    x := x - 5;
    raketa(x);
    Sleep(50);
    Redraw;
  until x < 0;
End.

Обратите внимание, что мы также поменяли начальное значение x так, чтобы ракета начинала свой путь с правого края окна и двигалась влево. Условие выхода из цикла until x < 0 гарантирует, что ракета будет лететь до самого левого края окна и остановится там.