Тема:Модуль граф,-нужно чтобы получилась фигура и чтобы она двигалась

[Gulnaz379]

TUrbo Pascal/Тема:Модуль граф,задачка-нужно чтобы была фигураФото0377.jpg и чтобы она двигалась при нажатии клавиш-стрелок.. прога простая чтобы типа вот этого была,все так ,но координаты не получается определить помогите плиз..
uses Graph,CRT;
var
Driver, Mode:Integer;
x,y,a,b:integer;
Xs,Ys:string;
k:char;
begin
Driver:=Detect;
InitGraph(Driver,Mode,' ');
if GraphResult <> grok then Halt(1);
x:=100;
y:=100;
a:=20;
repeat
SetColor(10);
Circle (x+120,y+140,a+20);
Circle (x+230,y+40,a+20);
Circle (x+340,y+140,a+20);
Line(x+190,y+40,x+120,y+100);
Line(x+270,y+40,x+340,y+100);
Line(x+230,y+80,x+160,y+140);
Line(x+230,y+80,x+300,y+140);
Line(x+160,y+140,x+230,y+200);
Line(x+230,y+200,x+300,y+140);
SetColor(0);
Str(x,Xs);
Str(y,Ys);
SetColor(5);
OutTextXY(300,150,'x='+Xs+' : y='+Ys);
k:=ReadKey;
SetColor(0);
Circle (x+120,y+140,a+20);
Circle (x+230,y+40,a+20);
Circle (x+340,y+140,a+20);
Line(x+190,y+40,x+120,y+100);
Line(x+270,y+40,x+340,y+100);
Line(x+230,y+80,x+160,y+140);
Line(x+230,y+80,x+300,y+140);
Line(x+160,y+140,x+230,y+200);
Line(x+230,y+200,x+300,y+140);

Str(x,Xs);
Str(y,Ys);
Setcolor(0);
OutTextXY(300,150,'x='+Xs+' : y='+Ys);
if k=#77 then x:=x+10;
if k=#75 then x:=x-10;
if k=#72 then y:=y-10;
if k=#80 then y:=y+10;
if k=#13 then a:=a+10;
if k=#8 then a:=a-10;
if k=#49 then b:=4;
if k=#50 then b:=2;
if k=#51 then b:=3;
if k=#52 then b:=5;
if k=#53 then b:=6;
if k=#54 then b:=7;
if k=#55 then b:=8;
if k=#56 then b:=9;
if k=#57 then b:=10;
if k=#58 then b:=1;
until k=#27;
CloseGraph;
end.

[rubius2008]

Оформите в виде отдельной процедуры рисование этой фигуры относительно заданного центра фигуры. Потом при нажатии клавиши вызываете эту процедуру передавая +/- смещение по соответствующей координате

[hon]

1. Устанавливаем текущую координату на 0,0 (это левый верхний угол).
2. Очищаем изображение (например так

CloseGraph; InitGraph(Driver,Mode,' ');

).
3. Относительно этой координаты рисуем изображение.
4. Ждем нажатия клавиши.
5. В зависимости от нажатой клавиши смещаем текущую координату.
6. Идем к пункту 2.

[Gulnaz379]

А можно по подробней, я не могу координаты линий и внутреннего квадрата только определить и центр в том числе.вот только квадрат получается сделать:Rectangle(100,100,200,200) а дальше никак..пожалууйста,помогите

[Gulnaz379]

а еще кругов этих.

[JIeIIIa]

stealth(собака)bigmir.net

[Gulnaz379]

а можете здесь помочь, я не могу найти этот адрес..