Цифрова математична модель динаміки польоту літака Ту-І54Б в режимі автоматичного управління приладовою швидкістю через руль висоти

end;

{____________________________________________________________________________}

{ Чисельне інтегрування диференціальних рівнянь методом Рунге-Кутти 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(' ___________________________________________________________________________');