Лабораторные работы по численным методам / 5 / Новая папка / интернет

program PolinomOfLagrange;
uses Crt;
const
m=15;
type
vector=array[0..m] of real;
Var
i,j:integer;
n:integer;
p,L,x1:real;
x,y:vector;
ch:char;
BEGIN
ClrScr;
WRITELN ('Vvedi n - poriadok mnogochlena Lagranga');
READ (n);
WRITELN ('Vvedi pari znacheniy xi,yl; i=0,...,n');
FOR i:=0 TO n DO
BEGIN
READLN (x[i], y[i]);
WRITELN;
END;
WRITELN ('Vvedi x');
READ (x1);
L:=0;
FOR i:=0 TO n DO
BEGIN
p:=1;
FOR j:=0 TO n DO
IF i <> j THEN p:= p*(x1-x[j])/(x[i]-x[j]);
L:=L+y[i]*p;
END;
WRITELN('x= ',x1:8:4,' L(x)= ',L:8:4);
READLN;
END.