[bullet92820]

Код:

const a=1;
  const b=0;
  const n=20;
var
  Form1: TForm1;
  s,d: real;
  i: integer;

implementation

{$R *.dfm}

function f(x:real):real;
begin
f:=ln(x+sqrt(sqr(x)+8));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
d:=(b-a)/n;
for i:=0 to n do
 s:=d*f(0+d*(i+0.5));
 label1.Caption:=floattostrf(s,fffixed,9,8);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     d:=(b-a)/n;
for i:=0 to n do
 S:=d*(F(0 + I*d) + F(0 + (I+1)*d))/2;
 label1.Caption:=floattostrf(s,fffixed,9,8);
end;

end.

Admin: Недельный бан за повторное нарушение пункта правил 2.8 форума.

вот что я сделал , все работает, ответ -0.03424