Методика підрахунку прямокутників різної форми

until shoot or exit;

setcolor (0);

bar (12,20,150,40);

setcolor (red);

an:=(angle*3.14)/180;

t:=0;

vx:=speed*cos (an);

vy:=speed*sin (an);

y:=round(vy*t-(g*t*t)/2);

x:=round(vx*t);

while not exit do

begin

x:=x+37;

if (y<-43) or (x>615) then begin

tx:=x; ty:=y;

t:=sx+len+2;

setcolor (yellow);

if (x>sx) and (x
st:='Поздоровляю!!! Ви влучили!!!!!!!!'

else st:='Потрiбно ще трохи потренуватися...';

exit:=true;

outtextxy (200,20,st);

readkey;

goto 2;

end;