Помогите решить уравнение методом половинного деления
Помогите решить уравнение x3 − 2x −13 методом половинного деления. Есть программка по нахождению корня у этого уравнения. Ее как то нужно доработать до метода половинного деления. ПОМОГИТЕ ПОЖАЛУЙСТА.
Const e=0.00001; Var x,dx:real; Function F(z:real):Real; begin F:=z*z*z-z*2-13; end; Begin x:=10; dx:=1; Repeat repeat x:=x-dx; until F(x)<0; x:=x+dx; dx:=dx/10; Until dx<e; Writeln('x= ',x:0:5,' F(x)= ',F(x):0:8); Readln End. |
Часовой пояс GMT +4, время: 08:40. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.