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

{____________________________________________________________________________}

{Процедура котролю за кутом атаки, закидом вертикального перевантаження, кількістю палива}

procedure control;

begin

dny:=ny-1;

if y[8]<0 then attention;

if (dny>0.2) or (dny<-0.2) then attention;

if y[5]>16 then attention;

end;

{____________________________________________________________________________}

{Вивід результатів на екран і в файл}

procedure PRINT;

begin

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;