Метод разделения отрезка пополам

@QuestDungeon · Регистрация: 22.11.2017

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

Методом разделения отрезка пополам найти приближенно корень уравнения 0.347sqr(x)-2.64x-3.742＝0. С точностью
E＝0.002.

@Puporev · 28.11.2017, 08:07

Функция имеет 2 корня, Вам который, на каком интервале, или оба?

@QuestDungeon · 28.11.2017, 11:53 **[ТС]**

Оба,пожалуста.

@Puporev · 28.11.2017, 12:24

Pascal

const a=-10; //начало интервала поиска корней
      b=10;  //конец интервала
      eps=0.002;//точность
function f(x:real):real;
begin
f:=0.347*x*x-2.64*x-3.742
end;
function Bisec(xn,xk:real):real; //функция уточнения корня методом бисекции
var x,c:real;
begin
repeat
c:=(xn+xk)/2;
if F(xn)*F(c)<0 then xk:=c
else xn:=c;
until xk-xn<eps;
Bisec:=(xn+xk)/2;
end;
 
var x,dx,x11,x12:real;
    i:integer;
begin
dx:=0.1; //идем по интервалу с шагом 0.1
x:=a;
i:=0;
while x<=b do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then //если знаки функции разные на концах отрезка
   begin
    i:=i+1;
    writeln('X',i,'=',Bisec(x11,x12):6:3);//уточняем корень
   end;
  x:=x+dx;
 end;
end.

@QuestDungeon 0 / 0 / 0 Регистрация: 22.11.2017 Сообщений: 4
		1
	Метод разделения отрезка пополам 27.11.2017, 22:24. Показов 1920. Ответов 3 Метки нет (Все метки) Методом разделения отрезка пополам найти приближенно корень уравнения 0.347sqr(x)-2.64x-3.742＝0. С точностью E＝0.002. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.11.2017, 08:07	2
	Функция имеет 2 корня, Вам который, на каком интервале, или оба? 0

@QuestDungeon 0 / 0 / 0 Регистрация: 22.11.2017 Сообщений: 4
	28.11.2017, 11:53 [ТС]	3
	Оба,пожалуста. 0

	28.11.2017, 12:24

Метод разделения отрезка пополам

Решение