Движение обьекта - Turbo Pascal

Формулировка задачи:

Как сделать чтобы объект двигался еще снизу вверх?

uses crt,graph;
var x,y,r,a,x0:integer;
procedure Trg(x,y,d:integer);
var ax,ay,bx,by,cx,cy:integer;
begin
ax:=x;ay:=y-d;
bx:=x-round(d*cos(pi/6));by:=y+round(d*sin(pi/6));
cx:=x+round(d*cos(pi/6));cy:=y+round(d*sin(pi/6));
line(ax,ay,bx,by);
line(bx,by,cx,cy);
line(cx,cy,ax,ay);
end;
begin
x:=0;
initgraph(x,y,'');
x0:=getmaxX div 2;
r:=10;
a:=100;
x:=getmaxX div 2;
y:=r;
while y<getmaxY do
 begin
  x:=x0-round(sin(y*pi/180)*a);
  setcolor(12);
  Trg(x,y,r);
  delay(20);
  setcolor(0);
  Trg(x,y,r);
  y:=y+1;
 end;
setcolor(12);
outtextXY(getmaxX div 2-50,getmaxY-30,'Press Enter...');
readln
end.

Решение задачи: «Движение обьекта»

Листинг программы

x:=getmaxX div 2;
y:=r;
while y<getmaxY do
 begin
  x:=x0-round(sin(y*pi/180)*a);
  setcolor(14);
  Trg(x,y,r);
  delay(20);
  setcolor(0);
  Trg(x,y,r);
  y:=y+1;
 end;
while y>0 do
 begin
  x:=x0-round(sin(y*pi/180)*a);
  setcolor(14);
  Trg(x,y,r);
  delay(20);
  setcolor(0);
  Trg(x,y,r);
  y:=y-1;
 end;
setcolor(12);
outtextXY(getmaxX div 2-50,getmaxY-30,'Press Enter...');
readln
end.

Объяснение кода листинга программы

Код начинается с определения переменной x, которая будет использоваться для вычисления максимального значения x по формуле getmaxX div 2.
Затем определяется переменная y, которая будет использоваться в цикле while y<getmaxY do.
Внутри цикла while выполняется следующее:
- Вычисляется значение x по формуле x=x0-round(sin(y*pi/180)*a). Здесь x0 - начальное значение x, a - коэффициент, определяющий величину движения, и pi/180 - значение pi в градусах.
- Устанавливается цвет фона 14.
- Вызывается функция Trg(x,y,r), которая представляет собой функцию, отвечающую за движение объекта. Здесь x, y и r - параметры функции.
- Выполняется задержка delay(20).
- Устанавливается цвет фона 0.
- Вызывается функция Trg(x,y,r).
- Переменная y увеличивается на единицу.
После выхода из цикла while выполняется следующий блок кода:
- Устанавливается цвет фона 12.
- Выводится текст Press Enter... с помощью функции outtextXY(getmaxX div 2-50,getmaxY-30). Здесь getmaxX div 2-50 - значение x после завершения цикла, а getmaxY - значение y.
- Вызывается функция readln(), чтобы ожидать ввода пользователя.