від початку руху до падіння тела8A (B) Масив, в якому зберігаються результати расчетов9iІндекс рядків масиву A (B) 10rezТекстовий файл, в який зберігаються результати вичісленій12dt, dyШагі підписів осей коордінат13x, sІспользуются для підписів осей коордінат15z, kІндекс стовпця масиву A (B) і поправочний доданок відповідно. Використовуються для підписів осей координат16GraphDriverИспользуется для визначення використовуваного відеокартою відео драйвера17GraphModeПосле визначення відео драйвера система заповнює його параметрами необхідними для правильної роботи цього відео драйвера18ErrorCodeИспользуется для зберігання коду помилки при ініціалізації модуля Graph з використанням ідентифікаторів d і m
. Текст програми на мові Pascal
рух тіло програма коші
uses graph, crt; v0 = 5; dt = 0.025; alpha = pi/6; k = 2.8; g = 9.8; m = 0.5; tab = array [1 .. 40,1. .6] of real; rez: text;, i: byte;: tab;
{========================================= ===========} osi_koordinat (A: tab; to 10 do (99,20 +30 * i, 101,20 +30 * i); z = 4 then to 10 do; (1,1,1); (8); (103,20 +30 * (i-1), 600,20 +30 * (i-1)); (100 +50 * i, 318,100 +50 * i, 20); (0,1,1);;;
{========================================= ===========} MAX (const alpha, dt, k, m, g, v0: real; var A: tab; var
{========================================= ============} graph_Vx (A: tab; n: byte); i, z, k: byte;;: = 2;: = n-1; _koordinat (a, n, z , k); (red); i: = 1 to n zavisimosti Vx (t) ');;;
{========================================= ============} graph_X (A: tab; n: byte); i, z, k: byte;;: = 3;: = 0; _koordinat (a, n, z, k ); (100,320); (red); i: = 1 to n do (round (100 + A [i, 1] * 500/A [n, 1]), round (320-A [i, 3] * 300/A [n, 3])); (100,400, 'gfrafik zavisimosti X (t)');;;
{========================================= ===========} graph_Vy (A: tab; to n do (round (100 + A [i, 1] * 500/A [n, 1]), round (320 - (A [i, 4]-A [n, 4]) * 300/(A [ 1,4]-A [n, 4]))); (100,400, 'grafik zavisimosti Vy (t)');;;
{========================================= ============} graph_V (A: tab; n: byte); i, z, k: byte;;: = 6;: = n-1; _koordinat (a, n, z , k); (100,20); (red); i: = 1 to n do (round (100 + A [i, 1] * 500/A [n, 1]), round (20 + (A [ i, 6]-A [1,6]) * 140/(A [n, 6]-A [1,6]))); (100,400, 'grafik zavisimosti V (t)');;;
{========================================= ============} graph_Y (A: tab; n: byte); i, z, k: byte;;: = 5;: = 0; _koordinat (a, n, z, k ); (100,320); (red); i: = 1 to n do (round (100 + A [i, 1] * 500/A [n, 1]), round (320-A [i, 5] * 22.5/A [n, 5])); (100,400, 'grafik zavisimosti Y (t)'...
