Program integ;
const a=0; b=1; E=0.0001;
var R,S,Si:real;
x,h:real;
n,i:integer;
function F(x:real):real;
begin
F:=sin(x+x*x*x);
end;
Function Sim(n:integer):real;
begin
h:=abs(b-a)/n;
S:=0;x:=a;
for i:=1 to n do
begin
Si:=(f(x)+4*f(x+h/2)+f(x+h))*h/6;
S:=S+Si;
x:=x+h;
end;
Sim:=S;
end;
Begin
n:=1;
R:=abs(Sim(n)-Sim(n*2))/15;
while(R>E) do n:=2*n;
writeln('S=',Sim(n):7:10);
readln;
end.
Ошибка 201 |