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

3.2 Фізичні основи та формули до завдання №2

За допомогою ПК можна намалювати те, що важко замітити. Кидання каменя – наглядний приклад цьому. Але політ каменя проходить так швидко, що мозок не встигає фіксувати траєкторію його польоту. В той же час відомо, що політ каменя добре підчиняється простим законам механіки. За допомогою рівнянь руху і машинної графіки можна відтворити траєкторію польоту каменя.

Для того щоб відобразити цю траєкторію в фізиці вже давно виведено такі формули:

Спочатку потрібно знайти вертикальні і горизонтальні компоненти швидкості vx і vy за допомогою таких формул: vx=v*cos (, vy=v*sin (. Де: v – початкова сила кидка, ( - кут кидка.

Координати ядра в точці x і y в любий момент часу:

x=vx*t

y=vy*t-gt2/2

Де: t – час польоту каменя (від кидка), секунд

g – прискорення вільного падіння = 9.8 м/сек2



Для більшого реалізму польоту приріст часу прийнято 0.02 секунди.

4. Блок – схеми програми та процедур

5. Текст програми

uses crt,graph;

const full : fillpatterntype = ($ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff);

brick: fillpatterntype = (255,1,1,1,255,16,16,16);

grass: fillpatterntype = ($55, $aa, $55, $aa, $55, $aa, $55, $aa);

g=9.8;

var maxx,mode,device,lnum,pnum:integer;

ch:char;

done:boolean;

matr:array [1..8,1..8] of integer;

label 1;

procedure draw;

var str: strin\x3B67\x620D\x6765\x6E69

{************** Сейчас рисуем окно и рамку ******************}

cleardevice;

setbkcolor (black);