Задача про передвижение в пределах экрана, Turbo Pascal Опции

[DeeNR]

Народ хэлп!
Нужно в паскале заставить фигуру двигаться в пределах экрана по определенной траектории(траектория показана на рисунке). Как делать передвижение? С помощью циклов или условий? Как сделать, чтобы двигалось в пределах экрана? Две недели мучаюсь ничего не выходит! Покопался в темах - толком ничего не нашел. Выручите плиз!!!

p.s. Фигура двигается так: из точки 0,0 по диагонали вниз (45 градусов), как только доходит до низа экрана "отскакивает" вверх, и всегда как только доходит до низа отскакивает вверх. Далее всегда как только доходит до верха опять идет по диагонали до правого предела экрана "отскакивает" и идет по горизонтали до левого предела экрана. После этого опять по диагонали. И так до бесконечности.

Сообщение отредактировано: DeeNR - 10.05.2007 15:14

[DeeNR]

всем кто участвовал в решении этой задачи большое спасибо!!!

отдельное спасибо klem4!

появилась другая проблема. у меня не получается сделать так, чтобы код(взял код klem4) работал у меня в программе.то идет по диагонали, не "видя" нижнего предела экрана, то вообще не двигается.раньше думал, что проблема в условиях. теперь вроде все правильно, но все равно не работает.
Вообщем выкладываю листинг проги(вернее модуля) с которым проблемы. Может кто-нибудь разбереться.

unit ULABRAB;
interface
uses Graph,Crt,UVIDEO,UDIAGRAM;
type

{здесь все работает(убрал для уменьшения объема)}

PMyFigure4=^TMyFigure4;
     TMyFigure4=object(TMyFigure3)
      private
       s:boolean; xf,yf:integer;
      public
       constructor init(axf,ayf:integer; ar:word; acolor_fig:byte);
       procedure moveTraject(at:integer);
       procedure dx_dy(dxfig,dyfig:integer); virtual;
     end;

implementation
{здесь все работает(убрал для уменьшения объема)}

constructor TMyFigure4.init(axf,ayf:integer; ar:word; acolor_fig:byte);
      begin
       if (axf<0) or (axf>Video.getXmax) then xf:=(Video.getXmax div 2)
					 else xf:=axf;
       if (ayf<0) or (ayf>Video.getYmax) then yf:=(Video.getYmax div 2)
					 else yf:=ayf;
       inherited init(xf,yf,ar,acolor_fig);
       s:=true
      end;

     procedure TMyFigure4.moveTraject(at:integer);
      
{здесь расчет передвижения}

     procedure TMyFigure4.dx_dy(dxfig,dyfig:integer);
      begin
       inherited dx_dy(dxfig,dyfig);
      end;
end.

поясню: xf,yf - координаты "старта" прорисовки фируры, r - радиус, at - скорость передвижения фигуры. Эти параметры и цвет задает пользователь.

p.s. на всякий случай выкладываю всю прогу.