Question

Вычислить интеграл функции f(x)=3x^2-2x на интервале (0, 2) методом Симпсона.Шаг интегрирования взять равным h=0.5

Answer 1

type
  fun=function(p:real):real;

function f(x:real):real;
begin
  f:=3*sqr(x)-2*x;
end;

function Simpson(a,b,h:real;ff:fun):real;
var
  m,n,mn:integer;
  s:real;
begin
  n:=Trunc((b-a)/h)+1;
  s:=f(a)+f(b);
  mn:=4;
  for m:=1 to n-2 do begin
    s:=s+mn*f(a+h*m);
    if mn=4 then mn:=2 else mn:=4;
  end;
  Simpson:=s*h/3;
end;

var
  a,b,h:real;
begin
  a:=0; b:=2; h:=0.5;
  Writeln('y=',Simpson(a,b,h,f))
end.

Результат выполнения программы:
y=4