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

[6ac9k]

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



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

[Bokul]

В чем проблемы?

[6ac9k]

В чем проблемы?

понятие не имею как решить задачу

[Bokul]

Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
Самолет в пространтсве
Анимацыя в паскале

[6ac9k]

Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
Самолет в пространтсве
Анимацыя в паскале

спасибо разобрался)

[Гость]

БЛиНН не могу координаты настроить чтоб вышел прямоугольник(*((
Помогите мот..хотя я думаю проще полностью программу уже скласть)

[мисс_граффити]

выложи, что делал(а)
исправим...

[6ac9k]

По данным примерам пытался координаты поменять..не выходиТ
Так покавырялся..вроде разобрался)


Под прямоугольник соответствненно)

[Bokul]

С чем у тебя проблемы? Движениям? Или ты не знаешь как нарисовать прямоугольник? Глянь в справке процедуру Rectangle.

[6ac9k]

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

[Bokul]

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

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

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

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

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

[6ac9k]

program kvadrat;
uses crt;
var
x,y,dx,dy:integer;
begin
TextBackground(0);
ClrScr;
x:=60;
y:=5;
dx:=-1;
dy:=1;
repeat
X := x+dx;
Y := y+dy;
Window(X, Y, X + 5, Y + 3);
TextBackground(7);
ClrScr;
delay(20000);
TextBackground(0);
ClrScr;
until KeyPressed;
end.

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

[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, пользуйся тегами.

[6ac9k]

Спасиб
Вроде всё вышло =) Буду завтра показывать..