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

write(f,'|',t:6:1); write(f,y[3]:9:2,' '); write(f,vpr:7:3,' ');

write(f,y[6]:9:2,' '); write(f,y[5]:7:3,' '); write(f,y[1]:7:3,' ');

write(f,P1:8:3, ''); write(f,dV:8:3,' ');

write(f,ny:6:4,' ');

write(f,(2*Pdv+P1):6:4,' ');

writeln(f,y[4]:6:4,' |');

end;

{____________________________________________________________________________}

procedure prisvoenie;

begin

if flagg=1 then

begin

for i := 1 to 20 do X[i] := 0;

flagg := 0;

end;

Y[3] := 110; Y[6] := 1000; Gtop:=20000; G0:=53000; y[8]:=Gtop;

G :=Gtop+G0; Iz := 660000; DZ := 0; Ba := 5.285; FIst :=0;

Xt := 0.24; Ro := 0.1249; DG := 0; DV := 0; T := 0;

flagg:=1; flag:=1; flagbal:=1;

{SAU}

Чисельне інтегрування диференціальних рівнянь методом Эйлера }

procedure Eiler;

var i :integer;

begin

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

end;{Integrirovanie}

{____________________________________________________________________________}

{Вивід на екран початкових значень польоту та показників стійкості}

procedure print_bal;

begin