Решение уравнений в Паскале

[anna_]

Задание
Найти наименьший положительный корень уравнения f(x)=0,
где f(x)=tg(Ax)-Bx
При А=0.6319 B=0.9217

Помогите пожалуйста, просто даже нету вариантов как решать.
Натолкните на мысль.

[anna_]

Вот написала код, но как сделать чтоб выводило наименьший положительный корень ??

Может здесь нужен какой то другой метод решения уравнений (проб, хорд, касательных и т.д.) ??

Program metod2;
uses Crt;
Type Funct=Function(s:real):Real;
Var a,b,eps,x:real;
k:integer;
ident:string;
Function F(x:real):real;
Begin
f:=sin(A*x)/cos(A*x)-B*x;
End;
Procedure Bisect(a,b,eps:real; F:Funct; var k:integer; var x:real);
Var y,r:real;
Begin
k:=0;
Repeat
y:=F(a);
r:=F(b);
if (y*r<0) then
Begin
x:=(a+b)/2;
y:=F(x);
r:=F(a);
if(y*r>0) Then a:=x Else b:=x;
k:=k+1;
End
Else Writeln('   не выполняется условие выбора [a,b]');
until((b-a)<eps) Or (abs(F(x))<eps);
End;
Begin
Clrscr;
GotoXY(4,3);
Write ('Введите фамилию, номер варианта: '); Readln(ident); GotoXY(4,5);
Write ('Введите a: '); Readln(a); GotoXY(4,7);
Write ('Введите b: '); Readln(b); GotoXY(4,9);
Write ('Введите eps:'); Readln(eps); Bisect(a,b,eps,F,k,x); GotoXY(4,11);
Writeln('Работу выполнил студент: ',ident); GotoXY(4,13);
Writeln('Решене уравнения методом бисекций'); GotoXY(4,15);
Writeln('Корень уравнения ',x:7:3,' количество итераций ',k);
Readln;
end.

[MadReason]

в методе перебора примерно такая логика

for i:=0 to maxint do
begin
x:=i/10000;// для погрешности четыре знака
y:=round((tan(A*x)-B*x)*10000); //10000 для погрешности четыре знака
if y=0 then writeln('мин корень: ',x:7:5);
end;

правильнее будет сделать методами анализа. но ковыряться ща в этом лень

[anna_]

а кто нить еще может что то подсказать??