Уравнение методом секущих

@Maks223122 · Регистрация: 23.04.2017

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

Помогите пожалуйста решить вот это уравнение: ctg(x)-x/2=0 - методом секущих при помощи делфи

@Puporev · 08.10.2017, 13:03

Алгоритм отсюда
https://ru.wikipedia.org/wiki/Метод_хорд

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function f(x:real):real;
begin
f:=cos(x)/sin(x)-x/2;
end;
var a,b,e:real;
begin
a:=0.1;
b:=pi-0.1;
e:=0.0001;
while abs(b-a)>e do
 begin
  a:=b-(b-a)*f(b)/(f(b)-f(a));
  b:=a+(a-b)*f(a)/(f(a)-f(b));
 end;
write('x=',b:0:4);
readln
end.

@Maks223122 0 / 0 / 0 Регистрация: 23.04.2017 Сообщений: 12
		1
	Уравнение методом секущих 08.10.2017, 11:58. Показов 2309. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить вот это уравнение: ctg(x)-x/2=0 - методом секущих при помощи делфи 0

	08.10.2017, 13:03

Уравнение методом секущих

Решение