Цифровая математическая модель динамики полёта самолёта Ту 154Б в режиме, Детальна інформація

{____________________________________________________________________________}

{ Чисельне інтегрування диференціальних рівнянь методом Рунге-Кутти 2 порядку }

procedure R_K;

const dt2=dt/2;

var x0:array [1..20] of real;

i:integer;

begin

for i:=1 to 20 do x0[i]:=x[i];

for i:=1 to 20 do y[i]:=y[i]+x0[i]*dt;

dinamika;

for i:=1 to 20 do y[i]:=y[i]+(x[i]-x0[i])*dt2;

end;

{____________________________________________________________________________}

{Основний блок програми}

begin

ClrScr;

Assign (F,'data.dat');

Rewrite(F);

menu;

clrscr;

prisvoenie;

dinamika;

textcolor(3);

writeln(' ___________________________________________________________________________');

writeln('| T V Vpr H a teta P1 dV ny |');

writeln(' ---------------------------------------------------------------------------');

textcolor(7);

writeln(f,'| T V Vpr H a teta P1 dV ny Psu traekt |');

while (T<=180+dt) do

begin