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

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:='нератором випадкових чисел.';

outtextxy (35,135,st);

st:='Натиснiть любу клавiшу';

outtextxy (30,255,st);