Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

 if ki then begin

 Proizved1:=Proizved1*(t-x[i]);

 Proizved2:=Proizved2*(x[k]-x[i]);

 end;

 i:=i+1;

 until i>A;

 Ln:=Proizved1/Proizved2;

 end;

function Pol( ): Real;

 var

 Sum: Real;

 i: Integer;

begin

 i:=1;

 Sum:=0;

 repeat

 Sum:=Ln(i)*Y[i]+Sum;

 i:=i+1;

 until i>A;

 Pol:=Sum;

end;

function Delta( ): Real;

 var

 Sum: Real;

 i: Integer;

Рекомендуем скачать другие рефераты по теме: реферат по технологии, реферат эволюция.





Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата