Помогите плиЗз решить задачу на движующиеся Фигуры, Нарисовать движущийся прямоугольник Опции

[6ac9k]

Задача звучит так:
Нарисовать прямоугольник, движующийся по диогоналям экрана.



Сообщение отредактировано: 6ac9k - 10.12.2006 8:06

[Bokul]

А ты не мог сразу сказать, что тебе надо сделать в графическом режиме?

program kvadrat;
uses crt;

procedure Draw(x,y,col:byte);
begin
  Window(X,Y,X+5,Y+3);
  TextBackground(col);
  ClrScr;
end;
var
x,y,dx,dy:integer;
begin
  TextBackground(0);
  ClrScr;
  x:=0;
  y:=0;
  dx:=4;
  dy:=1;
  repeat
     Draw(x,y,7);
     delay(200);
     Draw(x,y,0);
     X := x+dx;
     Y := y+dy;
  until KeyPressed;
end.

не знаю как задать чтоб прямоугольник ездил по диогоналям экрана

Как ты себе это представляешь? Ну доехал прямоугольник до краю, а потом что?

P.S. 6ac9k, пользуйся тегами.