Народ помогите пожалуйста по выч мату срочно нужно здавать задачу ссесия на носу
а я немогу додумать задачку

задача
решить уранение ctg(x)=a/x
методом хорд
в общем не для своего уравнения я написал
на какомто сайте нащел доку по этому методу и написал
там задача рассматривалась на немного изогнутой прямой левая граница которой ниже оси ох а правая выше ох
и точно известно что будет только один корень т.к эта загагулина пересекает ось ох один раз
вот код
Program METODHORD;
Uses Crt,Graph;

Var
a,b:Integer;{лево право}
N:Real;{Коафицент а}
Key:Char;
J:Real;{Координата пересечения хорды с ох}
acc:Real;{Точность}
Temp,Tempj:Real;
{ГР}
{Ввод информации}
Procedure GetAll;
Begin
ClrScr;
Write('Введите коэфицент а');

ReadLn(N);
WriteLn('Вводи а');
ReadLn(a);
WriteLn('Вводи b');
ReadLn(b);
WriteLn('Введи точность');
ReadLn(acc);
End;
{Уравнение}
Function Fx(x:real):Real;
Begin
Fx:=N/X — cos(x)/sin(x);
End;
{Вычисление Методом хорд}
Procedure Calculate;

Begin
J:=a-(Fx(a)*(b-a))/(Fx(b)-Fx(a));
Temp:=Fx(j);
While Temp>=acc do
Begin
TempJ:=j;
J:=(-1) * (Temp * (b-TempJ) / (Fx(b)-temp)+TempJ);
Temp:=Fx(j);
End;
Write('х = ');
WriteLn(Temp:10:8);
write('С точностью ');
WriteLn(acc:10:8);
End;
Begin

GetAll;
Calculate;
key:=ReadKey;
Until Key in ['Q','q'];

ReadKey;
End.
а в моём уравнение почти такаяже загагулина только их дахрена
и препод вводит промежуток а и б так как ему захочется
тоесть на этом промежутке будет несколько загагулин и значит несколько ответов
я уже голову сломал никак немогу предумать помогите а может код модифицырут кто нить
если надо могу описать метод
Заранее благадарен