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

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);

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



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

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