Технический форум - Разработать программу для решения трансцендентного уравнения по методу касательных

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Разработать программу для решения трансцендентного уравнения по методу касательных (http://www.tehnari.ru/f43/t75247/)

julduz

21.06.2012 15:19

Разработать программу для решения трансцендентного уравнения по методу касательных

Помогите пожалуйста!!Нужно разработать программу на языке Turbo Pascal для решения урав-нения х^4+2x^3-x-1 по методу касательных.Оооочень срочно!!!

Переношу тему в соответствующий раздел. Модератор

julduz

21.06.2012 15:29

Отпишитесь кто-нибудь!!:tehnari_ru_837:

Vladimir_S

21.06.2012 15:34

А "Оооочень срочно!!!" - это как?

Vladimir_S

21.06.2012 16:17

М-да... И ответом ему было гробовое молчание. Ну да и пёс с Вами, не хотите отвечать - не надо.

Код:

Const

 Eps=0.00001;

Var

 x,y:Real;



Function Init_fun(z:real):Real;

begin

 Init_fun:=Sqr(Sqr(z))+z*Sqr(z)*2-z-1;

end;



Function Deriv(z:real):Real;

begin

 Deriv:=z*Sqr(z)*4+Sqr(z)*6-1;

end;



Begin

 x:=-2;

 Repeat

  y:=Init_fun(x);

  x:=x-y/Deriv(x);

 Until Abs(y)<Eps;

 Writeln(' First root: x = ',x:8:5);

 x:=1;

 Repeat

  y:=Init_fun(x);

  x:=x-y/Deriv(x);

 Until Abs(y)<Eps;

 Writeln('Second root: x = ',x:8:5);

 Readln;

End.

Часовой пояс GMT +4, время: 19:25.