Задача звучит так:
Нарисовать прямоугольник, движующийся по диогоналям экрана.
В чем проблемы?
Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
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
БЛиНН не могу координаты настроить чтоб вышел прямоугольник(*((
Помогите мот..хотя я думаю проще полностью программу уже скласть)
выложи, что делал(а)
исправим...
По данным примерам пытался координаты поменять..не выходиТ
Так покавырялся..вроде разобрался)
Под прямоугольник соответствненно)
С чем у тебя проблемы? Движениям? Или ты не знаешь как нарисовать прямоугольник? Глянь в справке процедуру Rectangle.
Нарисовать не могу движения я поставлю.
Я ж тебе уже дал процедуру для рисования, осталось только воспользоваться ней:
uses graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
setcolor(red);
rectangle(10,10,100,110);
readln;
end.
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.
у меня получилось так..не знаю как задать чтоб прямоугольник ездил по диогоналям экрана
А ты не мог сразу сказать, что тебе надо сделать в графическом режиме?
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.
Спасиб
Вроде всё вышло =) Буду завтра показывать..