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

const n=10;

var i,j:integer;

p1,p2,p,r,r1,r2,q,s:real;

begin

p:=0.0; p1:=p; p2:=p;

for i:=1 to n do

begin

r:=1.0; r1:=0.0; r2:=r1;

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;