Весенний семестр 2014 / Блок 2 / Лабораторная работа №8 / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;

type
TForm1 = class(TForm)
lbl1: TLabel;
mm1: TMainMenu;
N1: TMenuItem;
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var a,b,e,x,s,c,c2,z,z2,Int,h:Real; n:integer;
Form1: TForm1;

implementation

{$R *.dfm}

function f(x:Real):Real;
begin
c:=x*x*x;
c2:=c*c;
z:=(1+c*x*x);
z2:=z*z*z;
f:=c2/z2;
end;


//Вычисление интеграла
procedure TForm1.N1Click(Sender: TObject);
var i:integer;
begin
b:=1.1487{Exp(Ln(2)*0.2)}; a:=0; e:=0.001;
n:=10;

repeat
h:=1.1487/n;
for i:=1 to n do

begin
S:=s+f(a+h*i);
Int:=h*((f(a)+f(b))/2+S);
n:=2*n;
end;

until abs(S-Int)<e;

lbl1.Caption:=lbl1.Caption+' '+floattostr(Int);;
end;

end.