Версия для печати темы

Автор: Publicprosecutor 23.06.2008 19:33

Решить уравнение In (x)-x+1.8=0 с точностью е на отрезке [2;3] методом касательных.

Автор: dream-x 23.06.2008 20:17

О господин минутку сейчас все примуться решать задачу тебе... Хоть сам бы что-нить сделал?

Автор: Гость 23.06.2008 20:23

в том то и проблема знал бы как сделать сделал бы P\s а я никого и не заставляю тот кто захочет помочь поможет

Автор: Swordfish 23.06.2008 21:13

uses Crt;
var x,a,b,e: double;
function f1(z: double): double; {Основная функция}
begin
f1:= ln(z)-z+1.8;
end;
function f2(z:double): double; {Производная от основной функции}
begin
f2:=1/z-1 ;
end;
begin
Clrscr;
a:=2;b:=3;
write('e=');readln(e);
clrscr;
if f1(a)*f2(a)>0 then x:=a
else x:=b;
while abs(f1(x))>e do
begin
x:=x-f1(x)/f2(x);
end;
Writeln (' В интервале от ',a:0:0,' до ',b:0:0,' с погрешностью ',e:0:5);
Writeln ('x=',x:0:5,' f(x)=',f1(x):0:5);
Readln
end.