gn="justify"> readln;
end.
Результат програми:
В
Шлях розгону до Vст S = 374,211 м
Графік S (t)
В
Графік V (t)
В
4.5 Знаходження енергії розгону судна
Обчислюємо енергію розгону за формулою:
E = m/2? v 2 (t) dt
V (t) = 0,37423 t
Метод центральних прямокутників:
Program metodcentrpr; a, b, h, n, x, S: real;
i: integer;
c: array [1 .. 51] of real;; ('vvedite a'); (a); ('vvedite b'); (b);: = (ba)/50 ;: = (a + h)/2;: = 0; i: = 1 to 51 do [i]: = 40400/2 * sqr (0.374 * x);: = x + h;: = S + c [ i];;: = h * S; ('S =', S: 6:3);
readln;.
Результат програми:
vvedite a
vvedite b
.29
S = 99127380.931
Енергія розгону судна до Vст E = 99,1 МДж
5. Модельна задача 2
5.1 Кусково-лінійна апроксимація функцій R (V) і T (v)
В
5.2 Знаходження стаціонарної швидкості
F (x) = -6180,6 x +111216,5
Відділення кореня кроковим методом:
program shag;
var a, b, h, x, x1, x2: real;, y2: real;: byte; y (x: real): real;: = -3371.9 * x +58413;; ('vvedi a, b, h'); (a, b, h);: = 0;: = a + h; x <= b do: = xh;: = x;: = y (x1);: = y (x2); y1 * y2 <0 then: = k +1; (x1: 5:2); (x2: 5:2);;: = x + h;; k = 0 then ('korney net ');.
Результат програми:
vvedi a, b, h
.1
.90
.00
У результаті обчислень кроковим методом отримуємо інтервал ізоляції кореня [17,9; 18]
Уточнення кореня методом половинного ділення:
program polovina; a, b, e, af, bf, xf, z, absxf, x: real; ('vvedite then: = af * xf; z <0 then b: = xa: = xwriteln ('x =', x: 4:3) abs (xf)
Результат програми:
vvedite a, b, e
.9
.001
x = 17.994
стаціонарна швидкість Vст = 17,994 м/c
5.3 Знаходження часу розгону...
