Мишень И Прицел

Тема в разделе "Pascal and Delphi", создана пользователем Alimax, 8 апр 2013.

  1. Alimax

    Alimax New Member

    Репутация:
    0
    Регистрация:
    8 апр 2013
    Сообщения:
    1
    Симпатии:
    0
    Как заставить двигаться мишень независимо от прицела?
    Чтобы при перемещений прицела мишень тоже двигалась. Язык Паскаль
    Код:
    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.
     
  2. gpatron

    gpatron Active Member

    Репутация:
    0
    Регистрация:
    13 авг 2009
    Сообщения:
    26
    Симпатии:
    0
    поясните алгоритм движения мишени и прицела
     

Поделиться этой страницей