Метод Симпсона, прямоугольников и трапеций.

[Buble07]

Помогите с решением плиз. На симпсона я уже сделал, а вот на остальные не могу ни сделать ни найти.

[puporev]

ни найти.

Это неправда, в инете все есть, если не код, то алгоритм, а написать код по этой теме несложно, если понимаешь что пишешь. А если математический смысл не знаешь, то чужой код не поможет.

[Cannibal]

Метод трапеций

Program pr1;
uses crt;
type mas=array[0..100000]of real;

var a,b,h,e,int1,int2,s:real;
    x,y:mas;
    i,N:longint;
function f (xi:real):real;
begin f:=1/sqrt(sqr(xi)+2) end;

begin a:=0.5; b:=1.3; h:=b-a; e:=0.0001;n:=1;
      int2:=h*(b-a)/2;
      repeat int1:=int2;
             h:=h/2;
             n:=n*2;
             x[0]:=a;
             for i:=1 to n do
                 x[i]:=x[i-1]+h;
             for i:=1 to n do
                 y[i]:=f(x[i]);
             s:=(y[0]+y[n])/2;
             for i:=1 to n-1 do
                 s:=s+y[i];
             int2:=h*s;
      until abs(int1-int2)<e;
      write (int2:10:7);
readkey;
end.