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

x[2]:=x[2]+d[2];

x[3]:=x[3]+d[3];

x[4]:=x[4]+d[4];

x[5]:=x[5]+d[5];

x[6]:=x[6]+d[6];

{___________________________________________________________________}

{Вертикальне перевантаження }

Ny := ((2*Pdv + P1)*sin((Y[5]+FIdv)/RAD)+Ye)/G;

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;