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

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

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

write(P1:8:3, ''); write(dV:8:3,' '); writeln(ny:6:4,' |');

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}

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;