Програмування Pascal, Детальна інформація

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);

readkey;

setcolor (green);

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

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

setcolor (white);

st:=('Вибрати: '#24#25' - силу кидка, '#27#26' - кут кидка. Enter - кидок. Esc - вихiд.');

outtextxy (30,255,st);

setfillpattern (brick, red);

setcolor (green);

bar (11,235,maxx-21,248);

setfillpattern (grass, green);

setcolor (green);

bar (11,230,maxx-21,235);

setfillpattern (full,black);

sx:=230+random (300);

len:=30+random (50);