Інтерполяція функції

End;

D1^:=D2^;

k:=k+1;

End;

End;

Function Drib(xx,yy:Real):Real;

Var n:Integer;

Function GetH(m,k:Integer):Real;

Begin

If m=n+1 Then GetH:=0

Else

Begin

GetH:=(xx-X[m-1])/(B[m,k]+GetH(m+1,k));

End;

End;

Function GetL(m,k:Integer):Real;

Begin

If m=n+1 Then GetL:=0

Else

GetL:=(yy-Y[m-1])/(B[k,m]+GetL(m+1,k));

End;

Function GetG(k:Integer):Real;

Begin

If k=n+1 Then GetG:=0

Else