Программасы:
Program trap;
Var s,s1,x,h,M2,R:real;
N,i:integer;
Const a=0;b=1;
Function f(x:real):real;
Begin
F:=1/(1+ x);
End;
Function F2(x:real):real;
Begin
F2:=2/(sqr(1+x)*(1+x));
End;
Begin
Writeln(‘n=’); readln(n);
S1:=0;
H:=(b-a)/n;
For i:=1 to n-1 do
Begin
S1:=s1+2*f(a+i*h);
End;
M2:=abs(F2(a);
If M2
R:=abs((M2*sqr(b-a)*(b-a))/(12*n*n);
S:=(s1+F(a)+F(b))*h/2;
Writeln(‘s=’,s);
End.
2-есеп.
Берілген интегралды Симпсон әдісімен шешу: 
a=0; h=0.25; b=1;
Достарыңызбен бөлісу: |
