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

[6ac9k]

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



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

[Bokul]

Я ж тебе уже дал процедуру для рисования, осталось только воспользоваться ней:

uses graph;
var Gd, Gm: Integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm, ' ');
   setcolor(red);
   rectangle(10,10,100,110);
   readln;
end.

Нарисовать не могу движения я поставлю

Это как читать? Так?
Нарисовать не могу движения, я поставлю.
Или все-таки:
Нарисовать не могу, движения я поставлю.

Тот, кто читает твои посты, не знает о чем ты думаешь, так что, пожалуйста, старайся быть точнее и использовать хоть какие-то знаки пунктуации..