Курсовая работа: курсовые

m,mn:integer;

begin

h:=(b-a)/n;

s:=f(a,lam)+f(b,lam);

mn:=4;

for m:=1 to n-1 do begin

s:=s+mn*f(a+h*m,lam);

if (mn=4) then mn:=2 else mn:=4;

end;

simpson:=s*h/3;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

eps:=StrToFloat(Edit3.Text);

lam:=StrToFloat(Edit4.Text);

n:=3;

r:=simpson(a,b,n);

repeat r2:=r;

n:=n+2;

r:=simpson(a,b,n); h:=(b-a)/n;

until (abs(r-r2)<eps);

Panel1.Caption:=FloatToStr(r);

lap:=2/lam;

Panel2.Caption:=FloatToStr(lap);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin