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

tx,ty,sx,len,angle,speed,maxx,x,y,e,x1,y1:integer;

t,an,vx,vy,xx,yy:real;

label 2;

begin

randomize;

maxx:=getmaxx;

setfillpattern (full, black);

setcolor (green);

bar (11,11,maxx-21,264);

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

setcolor (11);

st:='Умова задачi:';

outtextxy (200,40,st);

setcolor (white);

st:='Скласти пограму, яка допомагае у вивченнi руху тiла, кинутого пiд кутом';

outtextxy (35,60,st);

st:='до горизонту з деякою початковою швидкiстю. Гравець повинен задати такi';

outtextxy (35,75,st);

st:='значення кута i сили кидка, щоб камiнь потрапив у лунку. На екранi по-';

outtextxy (35,90,st);

st:='виннi бути вiдображенi поверхня землi, лунка, камiнь, i траекторiя по-';

outtextxy (35,105,st);

st:='льоту камня. Вiддаль вiд людини до лунки, та ширина лунки задаються ге-';

outtextxy (35,120,st);

st:='нератором випадкових чисел.';