Курсовая работа: Інтерполювання функцій за формулою Лагранжа

end;

Додаток 3

Ліст и нг програмного модуля

program lagr;

{$M 65520,0,655360}

{побудовамногочленаЛагранжа}

Uses Crt,bibl;

{початок програми}

vari,j,k,n,m:integer;

s,p,q,p1:poli;

t,u,w:real;

x,y:array[1..20] of real;

begin

{створеннякiльцевогонуля zero i кiльцевоi одиницi od}

zerod;

assign(fi,'lagr.txt');

rewrite(fi);

{ввiдвузлiв}

writeln('Введiтьчисловузлiв ');

readln(n);

for i:=1 to n do begin

writeln('Введiть x[',i,'] y[',i,']');

readln(x[i],y[i]); end;

writeln('Введiтьточку iнтерполяцii '); readln(t);

writeln(' x y');

for i:=1 to n do writeln(x[i]:5:2,' ',y[i]:5:2);

writeln(fi,' x y');

for i:=1 to n do writeln(fi,x[i]:5:2,' ',y[i]:5:2);

writeln('Точка iнтерполяцii ',t:5:3);