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

  • Автор темы MrVi
  • Дата начала
M

MrVi

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

Вычислите интеграл методом Симпсона с точностью 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.
 
M

MrVi

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

-master-

Well-known member
14.01.2012
616
12
#5
Я не знаю этот метод.
Так вы запустите и проверте результаты, если правильно, то и все.

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