Технический форум - Метод прямоугольников

Цитата:

Сообщение от jax (Сообщение 436813)

помогите пожалуйсто,я с математикой хромаю,и как раз попалась на практике такая задача:написать программу приблеженного вычисления интервала функции 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.

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