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

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\x6A5B\x3B5D\x7220\x3A32\x283D\x3272\x732A\x322B\x722A\x2931\x712F\x723B\x3A31\x283D\x3172\x732A\x722B\x2F29\x3B71\x3A72\x723D\x732A\x712F\x0D3B††\x6E65\x3B64\x200D†\x7020\x3A32\x703D\x2B32\x3272\x662A\x5B6D\x5D69\x703B\x3A31\x703D\x2B31\x3172\x662A\x5B6D\x5D69\x703B\x3D3A\x2B70\x2A72\x6D66\x695B\x3B5D\x200D\x6520\x646E\x0D3B†\x6E49\x6574\x7072\x6C6F\x7546\x636E\x6974\x6E6F\x3A31\x703D\x0D3B\x6E65\x3B64\x497B\x746E\x7265\x6F70\x466C\x6E75\x7463\x6F69\x316E\x0D7D\x5F7B\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x5F5F\x7D5F

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

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

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