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);
Очень интересно - Курсовая работа: Сборка замка убранного положения основной опоры шасси самолета ТУ 204
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;