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

Y: Integer);

begin

StatusBar1.SimpleText:='Введитенижнююграницу';

end;

procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar1.SimpleText:='Введитеверхнююграницу';

end;

procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar1.SimpleText:='ВведитеточностьдляметодаСимпсона';

end;

procedure TForm1.Edit4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar1.SimpleText:='ВведитепараметрвинтегралеЛапласа';

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar1.SimpleText:='';

end;

function f(x,lam:extended):extended; //Подинтегральнаяфункция

begin

f:=(sin(x)+4)*exp(-2*lam*x);

end;

function simpson(a,b:extended;n:integer):extended;