Метод Симпсона

[MrVi]

Здравствуйте!
Помогите пожалуйста с задачей!

Вычислите интеграл методом Симпсона с точностью 0,001
Дан определенный интеграл от 1,6 до 2,4 tg^2(x)dx

[MrVi]

Кто-нибудь знает как решается,а то совсем не понимаю

[MrVi]

Проверьте

procedure TForm1.Button1Click(Sender: TObject);;

const a=1,6;

b=2,4;

n=800;

function f(x:real):real;

begin

f:=sqr(tg)(x);

end;

var

x:real;

s:real;

h:real;

begin
x:=StrToFloat(Edit1.Text)

h:=(b-a)/n;

s:=0;

x:=a;

repeat

s:=s+h/3*(f(x)+4*f(x+h)+f(x+2*h));

x:=x+2*h;

until x>=(b-h);

Label4.Caption:= FloatToStr(s)

end.