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

@12HARDPLAY12 · Регистрация: 05.03.2023

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

Pascal

var a,b,e,c,i,o,f :real;
 f:= ((1-x)/x)-3*cos(4*x);
 
 a:=1.100814;
 b:=-0.505;
 i:=0.00001;
 e:=1;
 begin
 while ((b-a)/2)>i do
 end;
  begin
  c:=(b+a)/2;
  o:=(b-a)/2;
  if f(a)*f(c)<=b then b:=c else a:=c;
  end;
 
  Writeln('Кол-во шагов-', e , 'погрешность-', abs((b-a)/2) );

Программа должна вычислять за сколько шагов ответ будет меньше или равен погрешности(0.00001), но программа выдает ошибку

@12HARDPLAY12 · 06.03.2023, 11:38 **[ТС]**

Pascal

program baa;
begin
  f:=((1-x)/x)-3*cos(4*x);  //функция
  end;
  var x,f,a,b,i,e,o,c :real;
  a:=10;
  b:=9;
  i:=0,00001;
  e:=1;
  while ((b-a)/2)>i do
  begin
    c:=((b+a)/2) //корень
    o:=((b-a)/2) //точность
    if f(a)*f(c)<=b then b:=c else a:=c
    write ('количество шагов - ',e,);
  end;

помогите написать код, задание тоже что и в начале, только код немного изменён

@Pphantom · 06.03.2023, 11:59

12HARDPLAY12, вы с какой целью задали b меньшим, чем a? И что имелось в виду при написании этого условия:

Сообщение от 12HARDPLAY12

if f(a)*f(c)<=b

?

@12HARDPLAY12 · 04.04.2023, 19:42 **[ТС]**

это точки меж которыми находится ответ,так как это программа по теме деление отрезка по полам

@Pphantom 686 / 555 / 136 Регистрация: 17.03.2022 Сообщений: 1,560
	06.03.2023, 11:59	3
	12HARDPLAY12, вы с какой целью задали b меньшим, чем a? И что имелось в виду при написании этого условия: Сообщение от 12HARDPLAY12 if f(a)*f(c)<=b ? 0

@12HARDPLAY12 0 / 0 / 0 Регистрация: 05.03.2023 Сообщений: 4
	04.04.2023, 19:42 [ТС]	4
	это точки меж которыми находится ответ,так как это программа по теме деление отрезка по полам 0

Опции темы