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

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;

setcolor (0);

line (x-5,7,x-1,5);

putpixel (x,7,yellow);