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

@Pascal_Noob · Регистрация: 24.12.2015

Методом деления отрезка пополам найти корень уравнения (x-3)cosx-1=0 на отрезке [п;2п]
Pascal ABC

@Puporev · 17.03.2017, 08:35

Pascal

function f(x:real):real;
begin
f:=(x-3)*cos(x)-1;
end;
var a,b,c,e,x:real;
begin
a:=pi;
b:=2*pi;
e:=0.0001;
repeat
c:=(a+b)/2;
if f(a)*f(c)>0 then a:=c else b:=c;
until abs(a-b)<e;
x:=(a+b)/2;
write('x=',x:0:4)
end.

@Сергей Игнатьев · 18.03.2017, 16:13

Образец программирования: четко, лаконично !

@Pascal_Noob 0 / 0 / 1 Регистрация: 24.12.2015 Сообщений: 75
		1
	Методом деления отрезка пополам найти корень уравнения 16.03.2017, 20:44. Просмотров 3905. Ответов 2 Метки нет (Все метки) Методом деления отрезка пополам найти корень уравнения (x-3)cosx-1=0 на отрезке [п;2п] Pascal ABC 0

@Сергей Игнатьев 196 / 33 / 16 Регистрация: 13.03.2017 Сообщений: 186
	18.03.2017, 16:13	3
	Образец программирования: четко, лаконично ! 0

Опции темы

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

Решение