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

setcolor (yellow);

if y<178 then

begin

putpixel (x,190-y,red);

circle (x,190-y,1);

end;

t:=t+0.02;

delay (15);

setcolor (0);

if y<178 then circle (x,190-y,1);

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

x:=round(vx*t);

t:=t+0.02;

if keypressed then

begin

if readkey=#27 then exit:=true;

end;

end;

2:

setcolor (yellow);

circle (tx,190-ty,1);

setcolor (green);

bar3d (10,250,maxx-20,265,0,topon);

setcolor (white);

draw;