Паскаль графика

[Aлена]

Написала программу где нарисованный объект движется по прямой траектории. Препод задал написать прогу, где траектория будет ввиде линии(диагонали), и паровоз будет по ней двигаться. Подскажите,что надо дополнить?

program clock;
uses graphABC;
var xx,yy,d,m,x,y,x1,y1,i:integer;
    a,b:integer;al:real;
begin    
  x:=20; y:=400;
  
  //x:=windowwidth div 2 ;
 // y:=windowheight div 2;

  lockdrawing;
  while x<500 do
  begin
  ClearWindow; 
  x:=x+2; 
  setpencolor(clred);
  setbrushcolor(clblue);
  circle(x,y,20);   
  circle(x+50,y,20);
  setbrushcolor(clgreen);
  Rectangle(x-30,y-20,x+80,y-50); 
  DrawRectangle(x+50,y-50,x+80,y-90); 
  FloodFill(x+52,y-55,clred);   
  setbrushcolor(clyellow);
  Pie(x+5,y-50,30,0,180);    
  sleep(10);
  redraw;
  end;
  while x>50 do
  begin
  ClearWindow; 
  x:=x-2; 
  setpencolor(clred);
  setbrushcolor(clblue);
  circle(x,y,20);    //  2 колеса
  circle(x+50,y,20);
  setbrushcolor(clgreen);
  Rectangle(x-30,y-20,x+80,y-50); 
  
  DrawRectangle(x-30,y-50,x+1,y-90); 
    FloodFill(x-5,y-65,clred);
    setbrushcolor(clyellow);
  Pie(x+47,y-50,30,0,180);

  setbrushcolor(clyellow);
  sleep(10);
  redraw;
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Black Fregat]

В первом цикле, где

x:=x+2;

поставить

x:=x+2; y:=y-1;

Во втором, соответственно где

x:=x-2;

поставить

x:=x-2; y:=y+1;

[Aлена]

спасибо )