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

[DeeNR]

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

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

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

[Sto]

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

Uses
   Graph, Crt;
Var
   gr, gm: Integer;
   MaxX, MaxY, i, x, y, dx, dy, R :Integer;
Begin
   gr := Detect;
   InitGraph(gr, gm, '');
   MaxX := GetMaxX;
   MaxY := GetMaxY;
   R := 20;
   x := R;
   y := R;
   dx := 3;
   dy := 3;
   SetColor(White);
   Rectangle(0,0,MaxX,MaxY);
   SetFillStyle(SolidFill,Black);
   For i := 1 To 2000 Do
      Begin
         x := x + dx;
         y := y + dy;
         Circle(x,y,R);
         Delay(5);
         SetFillStyle(SolidFill,Black);
         Bar(1,1,MaxX-1,MaxY-1);
         If (x >= (MaxX-R)) Then Begin dx := dx*(-1); dy := 0; End;
         If (x <= R) Then Begin dx := dx*(-1); dy := 3; End;
         If (y >= (MaxY-R)) Then Begin dy := dy*(-1); dx := 0; End;
         If (y <= R) Then Begin dy := dy*(-1); dx := 3; End;
      End;
   ReadKey;
   CloseGraph;
End.

Код не сложный думаю сможеш разобратся, если возникнут вопросы спрашивай.