Интегралы

[tapah4ik]

Дано уравнение f(x)=0 .Определить один действительный корень этого уравнения на интервале [a,b] c точностью E=1*10^-3 cтепени . x*2^x-1=0.

[Вадим Мошев]

Ну, во первых, причём тут "интегралы", во-вторых, каким методом решать уравнение?

[tapah4ik]

Вадим Мошев, найти методом прямоугольника

[Вадим Мошев]

Методом прямоугольника выполняется численное интегрирование функций.
Решение (трансцендентных) уравнений выполняется методами половинного деления, касательных (Ньютона), секущих.
Метод прямоугольников для решения уравнений мне не знаком (если таковой существует).
Может вам надо численно проинтегрировать эту функцию на указанном отрезке?

[tapah4ik]

Вадим Мошев ты прав!Нужно численно проинтегрировать ур-е(на паскале).

[tapah4ik]

Люди!Помогите решить!

[Mad_Cat]

program Integral;
uses Crt;
var
dx,x1,x2,e,i:real;
function Fx(x:real):real;
begin
Fx:=x*exp(ln(2)*x)-1;
end;
procedure CountBar;
var
xx1,xx2:real;
c:longint;
begin
i:=0;
for c:=1 to round(abs(x2-x1)/e) do begin
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
i:=i+abs(xx1+xx2)/2*e;
end;
writeln('------------------------------------------------');
writeln('Int=',i);
end;
begin
write('(x1)=');Readln(x1);
write(' (x2)=');Readln(x2);
write(' (e)=');Readln(e);
CountBar;
readln;
end.

[tapah4ik]

здесь нужно корень найти а ни интеграл!

это получается так?

program Integral;
uses Crt;
var
dx,x1,x2,e,i:real;
function Fx(x:real):real;
begin
Fx:=x*exp(ln(2)*x)-1;
end;
procedure kopni;
var
xx1,xx2:real;
c,n:integer;
begin
i:=0;
for c:=1 to n do begin
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
i:=i+abs(xx1+xx2)/2*e;
end;
writeln('------------------------------------------------');
writeln('Int=',i);
end;
begin
write(' (e)=');Readln(e);
writeln( 'x1=',x1);
readln;
end.

[Mad_Cat]

Нужно численно проинтегрировать

здесь нужно корень найти а ни интеграл!

ты бы определился чего тебе надо то??

[tapah4ik]

Корень найти!(см.задание)