Уравнение

@ВладПРО · Регистрация: 27.03.2013

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

Нужно решить уравнение. Условие.Создать программу для решения уравнения 2/3*arccos(x^1/2)+0.577*Ln(x+1)+0.01^2/3-x=0 На отрезке от [0;2] c точностью &=10^-4 методом деления отрезка пополам.

@Jener · 03.04.2013, 06:19

Pascal

program dixotom1;
uses
  crt;
const
  eps = 0.0001;
var
  a, b, x : real;
function f(x:real):real;
begin
  f := 2/3*2*arctan(sqrt((1-sqr(x))/(1+sqr(x)))) + 0.577*Ln(x+1) +  exp(2/3*Ln(0.01)) - x;
end;
begin
  clrscr;
  a := 0; b := 2;
  repeat
    x := (b+a)/2;
    if f(a)*f(x)<=0 then b := x
    else a := x;
  until abs(b-a)<eps;
  x := (b+a)/2;
  writeln('x = ',x:0:10);
  writeln('f(x) = ',f(x):0:12);
  readln;
end.

@ВладПРО · 03.04.2013, 13:30 **[ТС]**

Сообщение от Торович

x := (b+a)/2; if f(a)*f(x)<=0 then b := x

что означает эта строчка? Что она выполянет и определяет?

@Puporev · 03.04.2013, 14:49

Сообщение от ВладПРО

что означает эта строчка?

А ты почитай про метод дихотомии(бисекции, деления отрезка пополам) и может поймешь.

@ВладПРО 0 / 0 / 1 Регистрация: 27.03.2013 Сообщений: 14
		1
	Уравнение 02.04.2013, 21:34. Показов 600. Ответов 3 Метки нет (Все метки) Нужно решить уравнение. Условие.Создать программу для решения уравнения 2/3arccos(x^1/2)+0.577Ln(x+1)+0.01^2/3-x=0 На отрезке от [0;2] c точностью &=10^-4 методом деления отрезка пополам. 0

@ВладПРО 0 / 0 / 1 Регистрация: 27.03.2013 Сообщений: 14
	03.04.2013, 13:30 [ТС]	3
	Сообщение от Торович x := (b+a)/2; if f(a)*f(x)<=0 then b := x что означает эта строчка? Что она выполянет и определяет? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.04.2013, 14:49	4
	Сообщение от ВладПРО что означает эта строчка? А ты почитай про метод дихотомии(бисекции, деления отрезка пополам) и может поймешь. 1