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

[MrVi]

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

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

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)

clrscr;

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.

 

[-master-]

clrscr;

это что такое?

 

[MrVi]

-master-
да я делфи не понимаю,сначало в паскале писал,потом под делфи переделывал....
забыл убрать

 

[MrVi]

-master-
в остальном ошибок не наблюдается?

 

[-master-]

Я не знаю этот метод.
Так вы запустите и проверте результаты, если правильно, то и все.

Добавлено: Если ошибки, кидайте их сюда.