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

writeln;

write(' Ваш вибiр ');

readln(met);

end;

{____________________________________________________________________________}

{Интерполяція функциї 1 змінної методом Лагранжу}

function InterpolFunction1(x1:real; var xm,fm:mass ):real;

const n=6;

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;

InterpolFunction1:=p;

end;{InterpolFunction1}{____________________________________________________________________________}

{Интерполяція функциї змінної методом Лагранжу таблиць на 11 значень}

function InterpolFunction11(x1:real; var xm,fm:matt ):real;