Метод прямоугольников

[jax]

Метод прямоугольников

помогите пожалуйсто,я с математикой хромаю,и как раз попалась на практике такая задача:написать программу приблеженного вычисления интервала функции f(x)=5x-x+2 пояснение 5х в квадрате, решить в PascaleABC.

 

[Vladimir_S]

помогите пожалуйсто,я с математикой хромаю,и как раз попалась на практике такая задача:написать программу приблеженного вычисления интервала функции f(x)=5x-x+2 пояснение 5х в квадрате, решить в PascaleABC.

Уважаемый Jax, хромаете Вы, к сожалению, не только с математикой, но и с русским языком. Но это бы ладно, но хоть бы Вы с терминами поаккуратнее обращались: я вот далеко не сразу понял, о чем вообще речь. Потому что, знаете ли, "интервал" и "интеграл" - это сугубо разные вещи, в задаче же, как я понял, речь идет именно об интеграле. Ну пожалуйста:

CONST
 Npoints=100;
VAR
 X,Xbeg,Xfin,DX,S:Real;
 N:Word;
 i:Integer;

Function Fun(xf:Real):Real;
 begin
  Fun:=5.0*SQR(xf)-xf+2;
 end;

Function Int_Fun(Xl,Xh:Real):Real;
 begin
  Int_Fun:=(5.0*Xh*Xh*Xh/3-Xh*Xh/2+2.0*Xh)-
           (5.0*Xl*Xl*Xl/3-Xl*Xl/2+2.0*Xl);
 end;

BEGIN
 Write('Lower limit = ');
 ReadLn(Xbeg);
 Write('Upper limit = ');
 ReadLn(Xfin);
 DX:=(Xfin-Xbeg)/Npoints;
 S:=0;
 For i:=1 to Npoints do
  begin
   X:=Xbeg+Dx*(i-1);
   S:=S+Fun(X);
  end;
 WriteLn('Approximate value = ',S*Dx:10:5);
 WriteLn('Accurate value = ',Int_Fun(Xbeg,Xfin):10:5);
 Readln;
END.

В программе считается не только приближенное значение интеграла, но и (для сравнения) его точное значение, и выводятся на экран обе величины.