Задача № 627

Умова: Скласти програму, яка виводитиме на екран рух тіла, кинутого під кутом до горизонту. Опором повітря знехтувати.

Розв'язування: Програма, що реалізує описаний алгоритм, наведена нижче. В ній використовуються наступні константи: Color - колір тіла, що кинуто; Radius - радіус тіла; Time - затримка зображення на екрані (підбирається емпіричним шляхом в залежності від типу комп'ютера).

Program Example_627_m;

uses crt,graph;

const g=9.8;

Color = 2; Radius =20; Time = 500;

Var gd,gm:integer;

Page:byte;

VX,Vy,X,y:real;

begin

gd:=VGA; gm:=VGAMed; InitGraph (gd,gm,");

Vx:=40; Vy:=30; X:=15; Y:=160;

SetColor (Color); SetFillStyle(1,Color);

repeat

SetActivePage (Page);

ClearDevice;

Circle (round(X),round(Y),Radius);

FloodFill(round(X),round(Y),Color);

SetVisualPage (Page); Page:=1-Page;

Delay (Time); X:=X+Vx*0.1;

if Vy<>0 then Y:=Y-Vy*0.1; Vy:=Vy-g*0.1;

Until keypressed;

CloseGraph;

end.

Домашнє завдання:

• сторінки 233-237 запропонованого підручника;

• задачі №630, №631, №640, 641.