{ Полином Лагранжа} program pol_lagr; uses crt; const n=3; var y,x:array [0..n]of real; i,j:integer; z,l,p:real; begin clrscr; writeln('Введите список значенй аргументов'); for i:=0 to n do read(x[i]); writeln(''); writeln('Введите список значений функции'); for i:=0 to n do read(y[i]); writeln(''); {ввод заданного аргумента} writeln('Введите x'); readln(z); l:=0; for i:=1 to n do begin p:=1; for j:=0 to n do if i<>j then p:=p*(z-x[j])/(x[i]-x[j]); l:=l+y[i]*p; end; writeln('x= ',z); writeln('f(x)= ',l); end.