Используя формулы центральных прямоугольников вычислить интеграл

@Arizoa_4 · Регистрация: 22.04.2018

Author24 — интернет-сервис помощи студентам

Используя формулы центральных прямоугольников вычислить интеграл

@Puporev · 23.04.2018, 09:16

Pascal

const a=1;
      b=5;
      e=0.01;
function f(x:real):real;
begin
f:=x*x/sqrt(x*x+16);
end;
function IntRect(n:integer):real;
var h,x,s:real;
    i:integer;
begin
h:=(b-a)/n;
x:=a+h/2;
s:=0.0;
for i:=1 to n do
 begin
  s:=s+f(x);
  x:=x+h;
 end;
IntRect:=s*h;
end;
var s1,s2:real;
    n:integer;
begin
n:=10;
s1:=IntRect(n);
repeat
n:=n*2;
s2:=s1;
s1:=IntRect(n);
until abs(s1-s2)<=e;
write('Интеграл = ',s1:0:2);
end.

@Arizoa_4 0 / 0 / 0 Регистрация: 22.04.2018 Сообщений: 2
		1
	Delphi 6-7 Используя формулы центральных прямоугольников вычислить интеграл 22.04.2018, 22:10. Показов 1538. Ответов 1 Метки нет (Все метки) 0

	23.04.2018, 09:16

Опции темы

Используя формулы центральных прямоугольников вычислить интеграл

Решение