Вычисление значение интеграла по формуле трапеций - Pascal ABC

Формулировка задачи:

Напишите пожалуйста программу Вычислить значение интеграла по формуле трапеций где h=(b-a)/n; xk=a+kh; f(xk) - подынтегральная функция. Принять a=1, b=4, n=40.

Код к задаче: «Вычисление значение интеграла по формуле трапеций - Pascal ABC»

textual
function F(x:real):real;
begin
 F:=power(x,3)/(power(x,4)+1);
end;
const a=1;
      b=4;
      n=40;
var h,k,s:real;
    i:integer;
begin
h:=(b-a)/n;
s:=(F(a)+F(b))/2;
k:=a;
for i:=1 to n-1 do
 begin
  k:=k+h;
  s:=s+F(k);
 end;
s:=s*h;
write('S=',s:0:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.700 из 5


СДЕЛАЙТЕ РЕПОСТ