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

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}

Kh1:= 0.4; K_v:= 1.8; K_v1:= 2.16; T_v:= 1.; T_v1:=1.; Kteta:= 2.0;

Kh:= 0.1; Kwz:= 3.0; Ktet:= 0.5; Kint:= 0.002; kidv:=0.04;

end;

{____________________________________________________________________________}

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

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