|
|
| бет | 368/451 | | Дата | 12.03.2018 | | өлшемі | 34,89 Mb. | | #39184 |
|
 .
Программасы:
Program simpson;
Var s,s1,x,h:real;
N,i:integer;
Const a=0;b=1;
Function f(x:real):real;
Begin
F:=1/(1+ x);
End;
Begin
Writeln(‘n=’); readln(n);
S1:=f(a);
H:=(b-a)/(2*n);
For i:=1 to n-1 do
Begin
S1:=s1+2*f(a+2*i*h)+f(a+(2*i-1)*h);
End;
S:=2*s1*h/3;
Writeln(‘s=’,s);
End.
3-есеп.
Берілген интегралды тіктөртбұрыштар әдісімен шешу: 
Достарыңызбен бөлісу: |
|
|
