Вычислить с помощью процедур и функций площадь фигуры, ограниченной заданными кривыми.

@nvnik · Регистрация: 02.05.2010

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

Вычислить площадь фигуры, ограниченной - осью Х, прямыми Х=1, Х=3 и кривой у(х)=1/х+5, разбивая интервал изменения Х на 10 частей и суммируя площади десяти прямоугольников с основанием (b-a)/n и высотой, равной значению функции в середине каждого интервала. Вычисление у(х) производить с помощью функции. Вычисление площади с помощью процедуры

@Puporev · 03.05.2010, 13:07

Pascal

uses crt;
function F(x:real):real;
begin
F:=1/x+5;
end;
procedure Plosh(xn,xk:real;n:byte;var s:real);
var i:byte;
    x,h:real;
begin
s:=0;
h:=(xk-xn)/(n-1);
x:=xn;
for i:=2 to n do
 begin
  x:=x+h*(i-1);
  s:=s+(F(x-h)+F(x)/2)*h;
 end;
end;
var p:real;
begin
clrscr;
writeln('Площадь фигуры, ограниченной осью Х, прямыми х=1, х=3');
writeln('и кривой y=1/x+5, вычисленная разбиением на 10 частей');
Plosh(1,3,11,p);
write('Площадь=',p:0:2);
readln
end.

@nvnik 0 / 0 / 0 Регистрация: 02.05.2010 Сообщений: 10
		1
	Вычислить с помощью процедур и функций площадь фигуры, ограниченной заданными кривыми. 03.05.2010, 11:02. Показов 2550. Ответов 1 Метки нет (Все метки) Вычислить площадь фигуры, ограниченной - осью Х, прямыми Х=1, Х=3 и кривой у(х)=1/х+5, разбивая интервал изменения Х на 10 частей и суммируя площади десяти прямоугольников с основанием (b-a)/n и высотой, равной значению функции в середине каждого интервала. Вычисление у(х) производить с помощью функции. Вычисление площади с помощью процедуры 0

	03.05.2010, 13:07

Вычислить с помощью процедур и функций площадь фигуры, ограниченной заданными кривыми.

Решение