Решить уравнение методом деления отрезка пополам

@arximed007 · Регистрация: 23.09.2011

уравнение arcsin(x)+x-1=0, с погрешностью Е=10^(-6)
по математической части знаю, графическим способом нахожу (хоть в Екселе(без разници)) интервал, где пересекаются уравнения у1=arcsin(x) и у2=-x+1, получается (0;1). Потом находим середину отрезка -
с=(а+в)/2, потом проверяем достигнули ли мы точности, если модуль (в-а)<E, то заданная точность достигнута и корень х=с; Иначе в качестве нового интервала выбирается (а;с) или (в;с). а выбирается так. проверяется, если f(a)*f(c)<0 или f(с)*f(в)<0. и потом если первое, то вместо (а;в) принимаем (а;с), ну вобщем понятно. И повторив указанное несколько раз получаем искомое значение.
Только теперь всё это в Паскаль надо както перевести, помогите, кто умный!!!

@Puporev · 23.09.2011, 21:50

Pascal

uses crt;
function F(x:real):real;
begin
if x=1 then F:=pi/2+x-1
else F:=arctan(x/sqrt(1-x*x))+x-1;
end;
 
var a,b,c,x,e:real;
begin
clrscr;
writeln('F(x)=arcsin(x)+x-1');
a:=0;
b:=1;
e:=0.000001;
if F(a)*F(b)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
   write('x=',x:0:6);
  end
else write('На данном интервале корней нет!');
readln
end.

@arximed007 · 24.09.2011, 20:28 **[ТС]**

благодарю за помощ.

@arximed007 0 / 0 / 0 Регистрация: 23.09.2011 Сообщений: 3
		1
	Решить уравнение методом деления отрезка пополам 23.09.2011, 21:10. Просмотров 2106. Ответов 2 Метки нет (Все метки) уравнение arcsin(x)+x-1=0, с погрешностью Е=10^(-6) по математической части знаю, графическим способом нахожу (хоть в Екселе(без разници)) интервал, где пересекаются уравнения у1=arcsin(x) и у2=-x+1, получается (0;1). Потом находим середину отрезка - с=(а+в)/2, потом проверяем достигнули ли мы точности, если модуль (в-а)<E, то заданная точность достигнута и корень х=с; Иначе в качестве нового интервала выбирается (а;с) или (в;с). а выбирается так. проверяется, если f(a)f(c)<0 или f(с)f(в)<0. и потом если первое, то вместо (а;в) принимаем (а;с), ну вобщем понятно. И повторив указанное несколько раз получаем искомое значение. Только теперь всё это в Паскаль надо както перевести, помогите, кто умный!!! 0

@arximed007 0 / 0 / 0 Регистрация: 23.09.2011 Сообщений: 3
	24.09.2011, 20:28 [ТС]	3
	благодарю за помощ. 0

Опции темы

Решить уравнение методом деления отрезка пополам

Решение