Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите плиЗз решить задачу на движующиеся Фигуры

Автор: 6ac9k 10.12.2006 7:25

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

!help.gif

Автор: Bokul 10.12.2006 7:27

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

Автор: 6ac9k 10.12.2006 8:00

Цитата(Bokul @ 10.12.2006 3:27) *

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

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

Автор: Bokul 10.12.2006 8:06

Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
http://forum.pascal.net.ru/index.php?s=&showtopic=13949&view=findpost&p=80913
http://forum.pascal.net.ru/index.php?s=&showtopic=13823&view=findpost&p=80274

Автор: 6ac9k 11.12.2006 8:12

Цитата(Bokul @ 10.12.2006 4:06) *

Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
http://forum.pascal.net.ru/index.php?s=&showtopic=13949&view=findpost&p=80913
http://forum.pascal.net.ru/index.php?s=&showtopic=13823&view=findpost&p=80274

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

Автор: Гость 16.12.2006 4:39

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

Автор: мисс_граффити 16.12.2006 20:32

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

Автор: 6ac9k 17.12.2006 7:41

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


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

Автор: Bokul 17.12.2006 9:44

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

Автор: 6ac9k 17.12.2006 21:31

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

Автор: Bokul 18.12.2006 0:07

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


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

wink.gif

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

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

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

Автор: 6ac9k 18.12.2006 2:25

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 18.12.2006 2:41

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


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 18.12.2006 7:29

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