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

INTERFACE

uses crt;

TYPE

poli=array[0..100] of real;

type maspoli=array[1..20] of poli;

var zero,od:poli;

fi:text;

function stepin(a:poli):integer;

procedure riv(a:poli;var b:poli);

procedure vvid(n:integer;var a:poli);

function poper(a:poli;m:integer):integer;

procedure vyvid(a:poli);

procedure fvyvid(a:poli);

function maxi(n,m:integer):integer;

function mini(n,m:integer):integer;

function znach(a:poli;x:real):real;

procedure suma(a,b:poli;var c:poli);

procedure dobchy(a:poli;r:real;var c:poli);

procedure pidvst(a:poli;n:integer;var c:poli);

procedure dobutok(a,b:poli;var c:poli);

procedure dilen(a,b:poli;var c,c1:poli);

procedure zerod;

implementation

procedure zerod;

var i:integer;

begin

for i:=0 to 100 do begin zero[i]:=0;od[i]:=0;end;

od[0]:=1;

end;