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

Proizved2:=1; repeat 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; begin i:=1;

Sum:=0; repeat

Sum:=ABS(Ln(i))*0.0002+Sum; i:=i+1; until i>A;

Delta:=Sum; end;

procedure TForm3.Button1Click(Sender: TObject); var i: Integer;

S: real; begin

A:=StrToInt(Form1.Edit1.Text);

S:=0; for i:=1 to A do begin

X[i]:=StrToFloat(Form2.StringGrid1.Cells[i,0]);

Y[i]:=StrToFloat(Form2.StringGrid1.Cells[i,1]); end;

P:=Pol();

Dl:=Delta(); for i:=1 to A do S:=S+Ln(i);

ShowMessage(FloatToStr(S));

Form3.Edit3.Text:=FloatToStr(P);

Form3.Edit2.Text:=FloatToStr(Dl); end;

Рекомендуем скачать другие рефераты по теме: баллов рефераты, 7 ответов.



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

Поделитесь этой записью или добавьте в закладки