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

for j:=1 to n do

if i<>j then

begin

q:=xm[i]-xm[j]; s:=x1-xm[j]; r2:=(r2*s+2*r1)/q;r1:=(r1*s+r)/q;r:=r*s/q;

end;

p2:=p2+r2*fm[i];p1:=p1+r1*fm[i];p:=p+r*fm[i];

end;

InterpolFunction11:=p;

end;{InterpolFunction1}

{____________________________________________________________________________}

{Процедура попередження користувача}

procedure attention;

begin

sound(100);

delay(2);

nosound;

end;

{____________________________________________________________________________}

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

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;