Написать движения прицела и мишени

[_Bac9_]

Как заставить двигаться мишень независимо от прицела?
Чтобы при перемещений прицела мишень тоже двигалась

PHP код:

uses crt, graph;
procedure Mis(xm,ym,rm:integer);
begin
setbkcolor(15);
setcolor(4);
circle(xm,ym,60);
circle(xm,ym,40);
circle(xm,ym,20);
end;
procedure pri(xp,yp,xm,ym,rm:integer);
var  xstr, ystr:string;
begin
setcolor(13);
line(xp,yp-15,xp,yp+15);
line(xp-15,yp,xp+15,yp);
str(xp, xstr);
str(yp, ystr);
setcolor(13);
outtextxy(xp+5,yp-35,'x='+xstr);
outtextxy(xp+5,yp-20,'y='+ystr);
end;
var a,b,xp,yp,xm,ym,rm:integer;
k:char;
begin
a:=detect;
initgraph(a,b,'c:\bp\bgi');
xp:=getmaxx div 2; yp:=getmaxy div 2;
repeat
k:=readkey;
case k of
      #72: begin yp := yp - 3;     end;
      #80: begin yp := yp + 3;     end;
      #75: begin xp := xp - 3;     end;
      #77: begin xp := xp + 3;     end;
end;
cleardevice;
pri(xp,yp,xm,ym,rm);
mis(xm,ym,rm);
until k=#27;
closegraph; end. 


[s-andriano]

Так независимо или тоже?

var a,b,xp,yp,xm,ym,rm,i:integer;
k:char;
begin
a:=detect;
initgraph(a,b,'c:\bp\bgi');
xp:=getmaxx div 2; yp:=getmaxy div 2;
i := 0;
repeat
if keypressed then begin
k:=readkey;
case k of
      #72: begin yp := yp - 3;     end;
      #80: begin yp := yp + 3;     end;
      #75: begin xp := xp - 3;     end;
      #77: begin xp := xp + 3;     end;
end;
end;
inc(i);
inc(xm, round(10*sin(i/100)));
inc(ym, round(10*cos(i/100)));
cleardevice;
pri(xp,yp,xm,ym,rm);
mis(xm,ym,rm);
until k=#27;
closegraph; end.

Основная идея такая, но проверить и подобрать коэффициенты не на чем.