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

[DeeNR]

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

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

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

[klem4]

uses crt,graph;
var
  gd, gm, x, y, dx, dy: Integer;

begin
  gd := detect;
  initgraph(gd, gm, '');

  x := 0; y := 0;

  repeat
    if (y = 0) or (x = 0) then begin dx := 1; dy := 1; end
     else if (y = GetMaxY) then begin dx := 0; dy := -1 end
      else if (x = GetMaxX) then begin dx := -1; dy := 0; end;

    inc(x, dx); inc(y, dy);

    PutPixel(x, y, white); Delay(2);
  until keypressed;

  closegraph;
end.